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コン バイ ル や リン カー の 使い 方 を 徹底 的 に わか りや すく 解説 。 
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な ぜ 、 今 ここ に き て Quick BASIC が 受け る の で し ょ う 。 

それ は 、MS-DOS 上 で 使え る BASIC で あり 、C や Pascal の よう に 、 コ ン パ イ 
ル し て 実行 用 ファ イル を 作成 する こと が で きる か ら で す 。 それ も Quick 
BASIC の 画面 上 に ある メニ ュー を 選択 する だ け で 、 わ ずら わし い 操 作法 を 知 
ら な く て も 、 ワ ンタ ッ チ で 実行 ファ イル を 作れ る と いう こと に 最大 の 魅力 が 
あり ます 。 と りあ え ず 、 実 行 フ ァイル を 作る 、 そ れ か ら 、 徐 々 に コン パイ ラ や 
リン カ の こと を 学習 し よう と いう 人 に は 、 う っ て つけ の 言語 で す 。 それと 、 
プロ グラ ム を 組む と き に 、 仕 様 書 や れ フ ロー チャ ー ト を 書い た り 、 机 上 で 完全 
な プロ グラ ム を 書か な く て も 、「 と りあ え ず 走ら せ て みよ う 」| と BASIC 本 来 
の イン タプ リタ で 実行 を 繰り 返し 、 バ グ を 完全 に 取り 終わ っ て か ら コ ン パ イ 
ル す る の で 失敗 も あり ませ ん 。 

穫 も て 。 靖 作 よ り る もう 六 し い の ゆ の が 、 MM BASIC の シス テム を 買え 
ば 、 あ と か ら コ ン パ イラ を 追加 購入 し な けれ ば な ら な いな ど と いう こと も あ 
り ま せん 。 こ の 経済 性 も 見 逃 せ ませ ん 。 

Quick BASIC は 、GOTO 文 を 使っ た プロ グラ ム で も 、C や Pascal の よう に 
GOTO 文 の な い プ ログ ラム で も 記述 する こと が で き 、 過 去 に BASIC を 学ん だ 
こと の ある 人 に と っ て は 、 そ の まま BASIC の 知識 を 生か すこ と が で きる の も 
大 き な 魅 力 で す 。 

第 一 部 の 入門 編 で は Quick BASIC の 画面 編集 の キー 操作 な ど は 、 必 要 最 小 
限 の こ 4 [ユー ザー ズ 

マニ ュ ア ル を お 読み な さい | と 、 こ こ で は 冷た く 突 き 放 すこ と に し て 、 そ の 
分 サン プル プロ グラ ム を 詰め 込む こと に し まし た 。 

BASIC は 「INPUT|] と 「PRINT] それ に 、「IF…… THEN~ELSE」 の 3 つ 
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を 組み 合わ せる と か な り の プロ グラ ム が 組む こと が で きま す 。 で きる だ け 
この 3 つ で 記述 し よう と し た た め 、 や や 回 りく どい と 思わ れる よう な アダ ログ 
ラム も 多く な っ て いま す 。 サ ンプ ルプ ログ ラム を 入力 し な が ら 、「 な ぜ ? 1 

[どう し て ? | と 考え な が ら 、 ス マー ト な プロ グラ ム に 作り 変 た て くだ さ 
い 。 

プロ グラ ム を 組む の は “あな た "” で す 。BASIC を 学ぶ の で は な く BASIC 
に よる プロ グラ ム の 組み 立て 方 を 学習 する の だ と いう こと を 知っ て お いて 
くだ さい 。 

私 た ち は 、 中 学校 、 高 校 、 大 学 と 英語 を 10 年 以上 学習 し て いな が ら 、 実 
際 に 人 役立つ 英語 力 が 身 に つか な いと 言わ れ て いま す 。 で も 、 英 語 を 知ら な 
く て も 、 実 際 に 英語 園 で 生活 する よう に な る と 半年 で 英語 が 話せ る よう に 
な る と も 言わ れ ま す 。BASIC も ひと つの 言語 で す 。 い ろ い ろ な 本 を 読ん で 
理屈 を 覚え ん る より も 、 ま ず 、BASIC で プロ グラ ム を 作り 、 実 行 結 果 を 見 て 、 

よく 考え る 。 こ れ が 、 も っ と も オー ソ ド ッ クス な BASIC の 学習 法 だ と 思い 
ます 。 幸い に も 、BASIC の プロ グラ ム が 掲載 され た 書籍 は 、 た くさ ん 出版 
され て いま す 。 

本 書 も そう し た 書籍 の ひと つ で す 。 本書 で は 、 ヒ ント と な り そ う な 部 品 
と し て プロ グラ ム を 記述 し て いま す 。 完成 し た プロ グラ ム は 、 そ うい くつ 
も あり ませ ん 。 部 品 と し て 記述 され た プロ グラ ム を どう 組み 立て て 実用 的 
な プロ グラ ム に する か と いう こと は 、 “あな た "が 決め て くだ さい 。 

第 二 部 の 応用 編 は 、BASIC の も っ と も る 得意 と する グラ フィ ックス で す 。 
特に 計算 式 を 使っ た 円 の 回 転 や 四角 形 の 移動 な ど は 、 短 い プ ログ ラム で 楽 
し むこ と が で きま す 。 本書 で は 、「 点 」 と 「 線 ] と 「 円 ] を 組み 合わ せ た 
「 移 動 ] と 「 回 転 ] を 最終 的 な テー マ と し て 取り 組ん で いき ます 。 ま た 、 
「 パソ コン ゲー ム | の 原点 と な る カー ソル 移動 キー を 使っ た プロ グラ ム は 、 
か な り し つこ ぐ 取 り 下げ で いま す 。 とれ も セン トド と し で 、 ど の よう に 。 由 
分 の プロ グラ ム に 生か すか は 、 や っ ぱり “あな た " 次 第 で し ょ う 。 

Quick BASIC で は た くさ ん の サン プル プロ グラ ム が 用 意 き れ て いま す 。 ゼ ぜ 
ひ 、 紅 用 し て くだ さき さゆ ゅ ゆ 。 
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また 、 グ ラフ ィ ッ クス の ショ ー ト プロ グラ ム を 掲載 し た 書籍 は 『 パ ソコ 
ン 図 形 処理 テク ニッ ク 』 や 『 パ ソコ ン 模 様 構成 テク ニッ ク 』 (と も に 、 誠 
文 堂 新 光 社 刊 : 赤松 義幸 著 ) な ど が 出版 され て いま す 。 こ れ ら は 、N88- 
BASIC 用 に 書か れ た も の で す が 、「 グ ラフ ィ ッ クス を や っ て みた い 」| と 思 
う 人 に は 必読 書 と いっ て よい は ほど の 名 著 で す 。N88-BASIC 用 プロ グラ ム を 
MS-DOS 上 の Quick BASIC に 移植 する の は 容易 で すか ら 、Quick BASIC で も 
十分 に 活用 で きま す 。 

本 書 で は 、 具 体 的 な 移植 例 と し て 「 パ ソコ ン 図 形 処理 テク ニッ ク 』 に 掲 
載 さ れ た いく つか の オリ ジ ナ ル 作 品 を 使わ さき させ て いた だ きま し た の で 、 参 
考 に し て くだ さい 。 

な お 、 移 植 に 使用 し た プロ グラ ム は 、『 パ ソコ ン 図 形 処理 テク ニッ ク 』 
の 著者 、 赤 松 義幸 氏 と 誠 文 堂 新光 社 編 集 部 の 好意 に より 許可 を 受け た も の 
で 、 本 書 で 使用 し た プロ グラ ム お よび 、 移 植 し た プロ グラ ム は 、 原 本 著者 
に 著作 権 が あり ます 。 本 書 を 執筆 する に あたり 、 筆 者 の 申し 入れ を 快諾 し 
て くだ さっ た 赤松 義幸 氏 、 お よび 誠 文 堂 新光 社 の 編集 部 の 方 々 に 誌上 を お 
借り し て 、 厚 く お 礼 申し 上 げ ま す 。 


平成 2 年 7 有 


遠藤 謙一 
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第 1 章 起動 する まで に 実行 する こと 、 考 える こと 





1.1 従来 の BASIC と の 違い 





従来 、 パ ソコ ン を 購入 する と 付属 と し て つい て くる ディ スク BASIC を 使う と 、 画 
面 上 に 、 


How many files(0-15) ? 

NEC N-88 BASTC(86) version xx.xx 

Copyright (c) xxxx by NEC Corporation / Microsoft Corp. 
メ XX メ メメ ByteS free 

Ok 





※ 画 面 の xxxx に は 、 バ パ バージョン に よっ て 違う 数 字 が 


な ど と 表示 され 、N88-BASIC が 起動 し ます 。 
二 28、 


10 PRTNT 123+456 


と 、 プ ログ ラム を 入力 し て RUN さ せれ ば プロ グラ ム は 実行 され 、 画 面 上 に 579 と 表 
示さ れ ま す 。 た だ (無料 ?) で つい て くる BASIC を 使え を ば いい の に 、 わ ざわ ざ Quick 
BASIC を 使う の は 、 な ぜ で し ょ う 。 

その 最大 の 理由 は 、OQuick BASIC が MS-DOS 上 で 動い て いる BASIC だ か ら で は な い 
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で し ょ うか 。 自分 で 作っ た プロ グラ ム が "「 マ ル チ プ ラン ] や 「 一 太郎 と 互換 性 を も 
つ " 、 こ れ は 考え た だ け で わく わく し て きま す 。 

さら に 、 コ ン パ イル する こと で 、Quick BASIC の シス テム が な く て も 、 自 分 の 作 
っ た プロ グラ ム を すぐ に 実行 で きる EXE フ ァイル や COM フ ァイル に で きる こと も ゃ 、 
Quick BASIC を 使う 大 き な 理由 で し ょ う 。 こ の コン パイ ル の 作業 は 、 メ ニュ ー 上 で 
簡単 に 実行 で きる よう に な っ て いま す 。 

そし て 、 な に より も 、N88-BASIC の MS-DOS 版 イン タプ リタ の 値段 で 、 コ ン パ イ 
ラ ま で 購入 で きる と いう 経済 的 負担 の 軽 さ が 従来 の BASIC と の 大 き な ち が いか と 思 
いま す 。 

も し 、MS-DOS 版 N88-BASIC イ ンタ プリ タ と 、 別 売 の コン パイ ラ を 購入 し て 、 実 
行 用 の プロ グラ ム を 作成 する と する と 、 次 の よう な 手順 を 必要 と し ます 。 


1 . プロ グラ ム の 仕様 を 考え る 

2. エディ タ と 呼ば れる プロ グラ ム を 起動 し て 、 プ ログ ラム を コン ピ 
ュー タ に 打ち 込む 

3 . 打ち 込ん だ プロ グラ ム の 名 前 を 登録 し て 、 エ ディ タ を 終了 させ る 

4. コン パイ ル と いう 機械 語 へ の 翻訳 作業 プロ グラ ム を 起動 する 

5. オブ ジェ クト ファ イル と 呼ば れる 名 前 を つけ て (自動 的 に つけ て 
くれ る の も ある ) 、 コ ン パ イル を 終了 する 

6 . リン カ を 使っ て 、 必 要 な ライ ブラ リ を 結合 させ て 、 完 全 な 実行 用 
ファ イル に 仕上 げ る 

7 . 実行 用 ファ イル 名 を つけ て リン カ を 終了 させ る 


も し 、 プ ログ ラム に 入力 ミス が あっ た 場合 に は 、 1 か ら 繰 り 返す こと に な り ま す 。 
また 、 思 わ ぬ プロ グラ ム の 記述 の ちがい で 、 実 行 用 プロ グラ ム が 使え な か っ た と き 
に も 、 1 か ら の 作業 を 繰り 返す こと に な り ま す 。 

ひと つの プロ グラ ム を 起動 し て 、「 エ ディ タ 機 能 ] も 「 コ ン パ イル 機能 ] も | リ 
ンカ 機能 ] も あっ て 、 プ ログ ラム の 記述 ミス や 入力 ミス を 簡単 に 修正 で きる も の が 
な いも の だ ろう か …… 9 と いう こと を 誰 し も 考え を る こと で は な いで し ょ うか 。 こ 
れ ら の 複雑 な 作業 を 一 発 で や っ て くれ る 環境 の こと を 「 統 合 開発 環境 ] と いっ て い 
ます 。Quick BASIC は この 環境 を も っ て いる の で す 。 こ の 「 統 合 開発 環境 ] と いう 
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の も Quick BASIC の 大 き な 特 徴 の ひと つ で す 。 

これ で 、 誰 も が コン パイ ルプ リン カ を 簡単 に で きる よう に な り 、 お な じみ の 
BASIC が 使え る わけ で す 。 

さら に 、BASIC プ ログ ラム の 弱点 で ある 「GOTO 文 に よる スパ ゲ テ ィ ー| と いわ 
れ た 、 わ か り に くい プロ グラ ム を 書か な く て すむ 「 構 造 化 プロ グラ ミン グ | と いう 
方 法 が 取り 入れ られ まし た 。 これ も Quick BASIC の 大 き な 特 徴 で す 。 

これ で 、 わ か りや すい プロ グラ ム を 書く こと が で きる よう に な り ま し た 。 そ の た 
め 、C 言 語 や Pascal 言 語 な ど で 使わ れ て いる レコ ー ド 型 と いわ れる デー タ の 型 が 強化 
され た り 、 い くつ か の 新しい 考え 方 と 言語 が 追加 され て いま す 。 た だ 、 構 造 化 で き 
る ん だ か ら 、 な に が な ん で も プロ グラ ム か ら 「GOTO 文 」 を な くそ うな ど と 、 堅 苦 
し く 考 えな い ほ うがい いで し ょ う 。 

Quikc BASIC は 、 従 来 の GOTO 文 や 行 番号 を 、 そ の まま 使っ た プロ グラ ム で も ゃ 実行 
で きま す 。 単に 、「GOTO 文 」 を 使わ な い プ ログ ラム だ か ら “構造 化 ” で は あり ま 
せん 。 本 書 の 例文 プロ グラ ム を 入力 し て いる うち に 、 自 然 と 「GOTO 文 」 を 使わ な 
く な り ま す 。 要 は 、 わ か りや すい プロ グラ ム を 作る 方 法 が 強化 され た と 理解 し て く 
SS We 





1.2 Quick BASIC を 動か す た ぁ に 用 意 す る も の 





現在 、 発 売 さ れ て いる Quick BASIC は 、NEC の PC-9801 と IBM プ AX を 対象 に し て い 
ます が 、 本 書 で は 、NEC 9801 シ リー ズ を 対象 に 説明 し ます 。 


直 玉 一 世 沙 正 受 


本 体 : NEC PC-9801 シ リー ズ 
た だ し 、XL・XL2 お よび XA・LT の ハイ レゾ リュ ーション ・ モ ー ド は 除く 。 
〇 本 書 で は 、PC-9801vm2 を 10MHz ク ロッ ク で 使用 。 

メモ リ : 640KB 


只 
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〇 QI・O デ ー タ の PIO-9234G シ リー ズ の 2MRAM ボ ー ド を 使用 し て 640KB に 拡張 。 
フロ ッ ピ ー デ ィ ス ク ド ラ イブ : IMB タ イプ が 望ま し い (3.5 イ ンチ 2HD、$ イ ンチ 
2HD、8 イ ンチ 2D) 。 
〇 本 機 で は 、1MB グ 640KB 自 動 切 り 替 え ド ライ ブ を 搭載 。1MB を 使用 。 
RAM デ ィ ス ク : 本 体 メ モリ が 640KB に 満た な いと き に は 必要 。 そ れ 以 上 は 、 あ れ 
ば 便利 。 
〇 I・O デ ー タ の PIO-9234G シ リー ズ の 2MRAM ボ ー ド を 使用 。 
ハー ド デ ィ スク : あっ て も な く て も よい が 、 あ れ ば 便利 。 
〇 Itec の 20MB ハ ー ド ディ スク を 使用 。 
マウ ス : あっ て も な く て も よい が 、 あ れ ば 便利 。 
〇 バス マウ ス を 使用 。 


婦 ソフ トウ エア 


OS : MS-DOS Ver.2.XX 以 上 
〇 本 書 で は 、MS-DOS Ver.3.3A を 使用 。 
言語 : Quick BASIC Ver.4.5 (マス ター ディ スク 4 枚 : セットアップ ディ スク は 、 
3 枚 に な り ま す ) 
RAM デ ィ ス ク ド ラ イ バ :RAM デ ィ ス ク が な けれ ば 不要 。 
〇 本 書 で は 、IOS-10 Ver.2.2 を 使用 。 
本 体 メ モリ は 、 最 低 640KB が 必要 で す 。 キ ャ ッシュ ディ スク や RAM デ ィ ス ク を 使 
うと き に は 、RAM デ ィ ス ク ド ラ イ バ が 必要 と な り ま す 。 





1.3 Quick BASIC V4.5 に 入っ て いる ファ イル 





Quick BASIC に は 『 セ モ セットアップ ディ スク 』 、『 プ ログ ラム ディ スク 』、「 ラ イ 
プラ リ デ ィ ス ク 』 、『 ア ドバイ ザ デ ィ ス ク 』 の 4 枚 の フロ ッ ピ ー デ ィ ス ク が 、 ハ ー ド 
ケー ス に 入っ て いま す 。 そ れ ぞ れ の ディ スク に は 、 次 の よう な ファ イル が 収納 され 
で めい ます 。 
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1. 入門 編 


l セッ ト ア ッ プ ディ スク 


セ モ セットアップ ディ スク の 中 の ファ イル の 一 覧 で す 。※ マ ー ク は 、MS-DOS の TYPE 
コマ ンド で 見 る こと が で きる テキ スト ファ イル に な っ て いま す 。 


PACKTNG 


SAMPTE 
SETUP 
SETUP 


@66 
EXE 


パッ キン グリ スト 
OBE.EXE( エ ミュ レー タ 版 ) の 説明 
マニ ュ ア ル の 最新 の 補足 説明 
サン プル プロ グラ ム の 説明 

セッ ウト ツブ ジレ 及 ル 

ゼ せ ッ ト ズ ッ プ プ 選 グラ ム 


@SAMPLE < ディ イレ クト リ > 


DEMO1 
DEMO2 
DEMO3 
OB 
OCARDS 


OCARDS 
REMLTNE 
SORTDEIMO 
TORUS 
WALT2 


BAS 
BAS 
BAS 
BI 

BAS 


BAS 
BAS 
BAS 


※ 


効果 音 プ ログ ラム 。 行 番号 を 使用 し た 従来 の プロ グラ ム 
DEMO1 .BAS を 部 分 修正 し た プロ グラ ム 
構造 化 さ れ た ouick BASrC ス タイ ル の プロ グラ ム 
Quick BASTC 標準 イン クル ー ド ファ イル 

Learning to use Ouick BASIC で 記述 し た 簡易 デー タ ベ ー 
スプ ログ ラム OCARDS 

OCARDS 用 デー タ 

不要 な 行 番号 を 取り 除く ユー ティ リティ 

アル ゴリ ズム 別 ソ ー ト プロ グラ ム 

外 ラ ジイ 久 の 窒 

BGM を 流し な が ら 、 グ ラフ ィ ッ クス を 描く プロ グラ ム 





人 SAMPLEYADVR EX < デイ レク トリ > 
アド バイ ザ で 参照 し て いる サン プル プロ グラ ム が 20 種 類 入 っ て いま す 。 
@SZMPLEYEXAMPLE < デイ レク トリ > 


CCALL 


CCALL 
CCALL 
COLOR 
FONTMAG 
GNCONST 
GNPROC 


BA 


OLB 
BAS 
BAB 
BI 

BAS 


※ ※ ※ ※ 


Cc で 作成 され た プロ シー ジャ の クイ ッ ク ラ イブ ラリ を 呼び 出 
す 例 。 こ の プロ グラ ム の 実行 は 、[ OB / rccALr ] で 起動 
CCArLL.BAS か ら 呼 ば れる モジ ュー ル の ソー ス 

ccArr .C で 作成 し た クイ ッ ク ラ イブ ラリ 

COLOR ス テー トメ ント の 動作 を 確認 する プロ グラ ム 

文字 列 の 拡大 ・ 回 転 表示 プロ グラ ム 

各種 定数 値 を 定義 し た イン クル ー ド ファ イル 

汎用 プロ シー ジャ 。 濃 用 性 の ある サブ ルー チン 集 


GNPROC B1 
HANOr BAS 
HWCONST BI 
OoBr BAS 
SITEGE BAS 
STEGE MAK 
STERP BAS 
ULCONV BAS 
@ SAMPLEYBOOK 


BALLPSET 
BALLXOR 
BAR 

CAL 
CHAP210 
CHAP210A 
CHAP210B 
CHAP2 1 
CHAP2 1 
CHAP2 1A 
CHAP2 1B 
CHAP3 1 
CHAP5 1 
CHAP6 1 
CHAP6 2 
CHAP6 3 
CHAP6 3 
CHAP6 3A 
CHAP6 3B 
CHECK 
COMMONS 
CRLF 
CUBE 


BAS 
BAS 
BAS 
BAS 


BAS 


BAS 
BAS 
BI 

BAS 
BAS 
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※ 汎用 プロ シー ジャ を 官 言 し た イン クル ー ド ファ イル 

※ グラ フィ ックス を 使っ た パズル 、 ハ ノイ の 塔 の プロ グラ ム 

※ ハー ド 依 存 の 定数 値 を 定義 し た イン クル ー ド ファ イル 

※ OB で 書か れ た プロ グラ ム を gc.ExE で コン パイ ル す る 

の AA 相 ジグ ダル 

※ srEGE.BAS で 必要 な モジ ュー ル を 定義 し て いる ファ イル 

STEGE .BAS を 読み 込む と 自動 的 に GNPRoC.BAS を 読み 込む 

※ シェ ル ピ ン スキ ー 曲 線 を 描画 する プロ グラ ム 

※ 大 文字 と 小文字 を 変換 する フィ ル タ 

< ディ レク トリ > 
ハン ドブ ッ ク マ ニュ アル に 記載 され て いる サン プル プロ グラ ム 

※ GET と PUT を 使っ た アニ メー ショ ン  P.241 

※ PUT ス テー トメ ント の xOR オ プシ ョ ン を 使用 P.244 

※ 棒グラフ の 作成 P.246 

※ 万 年 カレ ンダ ー BE.150 

※ CHAIN に よる 他 の プロ グラ ム の 呼び 出し MATN.BAS P.87 

※ 入力 デー タ の 平均 MEAN.BAS P.89 

※ 人 人 力 デー タ の 標準 偏 基 STDEV.BAS PB.88 

※ 円 柱 の 体積 と 密度 メイ ン モ ジュ ー ル BE.79 

※ 再帰 FONCrION プ ロ シ ー ジ ャ を 使っ た 階 乗 の 計算 p.85 

※ プロ シー ジャ の 定義 モジ ュー ル (円 柱 ) 、p.79 

※ ファ イル コピ ー ユ ー テ ィ リ ティ P.129 

※ グラ フィ ックス 階段 線 を 引く P.197 

※ エラー 処理 ルー チン エラ ー の 識別 p.269 

※ Sm の ケト ラッ の が コ ザー シュ PA283 

※ エラ ー 処 理 メイ ン モ ジュ ー ル p.290 

※ エラー 処理 GLOBALHANDLER モ ジュ ー ル  P.291 

※ エラ ー 処 理 SHORTSOB モ ジュ ー ル  P.290 

※ 小切手 の 残高 の 管理 P.33 

※ CHAP210.BAS の イン クル ー ド ファ イル 

浅 WT 昼 み ジル ター ンジ ン さ ライ マフ イル ドウ ネル タダ タ (PL35 

※ 立方 体 の 回 転 

※ デバ イス の 操作 p.147 


DISPLAY 


BAS 
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EDPAT BAS ※ パタ ー ン エディ タ PB.259 

FILERR BAS  ※ ファ イル アク セス エラ ー の トラ ッ ピ ング PE.295 
GET BAS ※ GET に よる イメ ー ジ 保存 P.238 

1NDEX BAS ※ ラン ダム アク セス ファ イル の 検索 P.155 


MANDEL ※ いい フ ラグ タ ルル の グ ゼ ジフ イツ) 多 炊 PS253 
PALETTE BAS ' 朱 ) グラ フイ ウッ クス パル ッ ト 
PLOTTER BAS ※ DRAW: グ ラフ ィ ッ クス マク ロロ 言語 P.229 


OLBDUMP BAS ※ OB ライ ブラ リ の プロ シー ジャ を 表示 P.143/P.458 


STNEWAVE "BAS ※ グラ フィ ックス の 波形 P.213 

STRTONUM BAS ※ 文字 列 か ら 数 値 へ の 変換 P.188 

STYLE BAS  ※ い グラ ワイ クス ライ シ 茨 クタ イル (BLJ200 
TERMINAL BAS ※ 端末 エミ ュ レ ー タ PB.164 

WHERETS BAS ※ 再帰 的 な ディ レク トリ の 検索 p.89 

ネプ ログラム ファ イル の うし ろ に つい て いる ペー ジ は マニ ュ ア ル の ペー ジ で す 。 


但 LEARN < デイ レク トリ > 
Ouick BAStC チ ュー トリ アル プロ グラ ム 
BALL BAS ※ 
HLP 





巡 プロ グラ ム デ ィ ス ク 
BIN と MOUSE の 2 つの ディ レク トリ が 入っ て いま す 。 BIN は 、 Quick BASIC 実 行 フ 


イル で ま 。 


@BIN < ディ レク トリ > 
BC EXE BASTC コ ン パ イラ 


BRUN45A ラン タイ ム モ ジュ ー ル 。 BRUN45A.LTB に 対応 


LTB ライ プラ リマ ネー ジャ 
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LTNK EXE リン カ 

OB EXE ouick BASrIC イ ンタ ー プ リタ ( 代 奉 数 値 演算 ) 

OB TNT 環境 設定 保存 ファ イル 

@⑱BINYEM < ディ レク トリ >…… エ ミュ レー タ 版 Ouick BAS1C 

BRUN45E EXE ラン タイ ム モ ジュ ー ル 。 BRUN45E.LIB に 対応 

OBE EXE Ouick BAStC イ ンタ ー プ リタ (エミュレータ 演算 ) 
。 倫 MOUSE < ディ レク トリ > 

MOUSE CoM マウ ス ド ラ イ バ (常駐 型 ) 

MOUSE SYS マウ ス ド ラ イ バ ( デ バイ ス ド ラ イ バ ) 

MOUSE DOC ※ マウ ス ド ラ イ バ の 説明 と マウ ス フ ァ ンク ショ ン 


LTrB < ディ レク トリ >…… ラ イプ ラリ 

ABSOLUTE "ASM ※ 。 ABSOLUTE ソー ス フ ァ イル 

BCOM45A LTB 独立 型 実 行 フ ァイル を 作成 する た め の ラ イブ ラリ 
( 代 花 数 値 演算 ライ プラ リ ) 

BOLB45 ouick ラ イブ ラリ を 作成 する た め の ラ イプ ラリ 


BRUN45A 分 離 刑 実行 ファ イル を 作成 する た め の ラ イプ ラリ 
実行 時 に BRUN45A.EXE が 必要 。 代 粋 数 値 演算 ライ ブラ リ 

INTRPT ASM ※ INTERRUPT ソー ス フ ァ イル 

OB OLB 標準 onick ラ イブ ラリ 

OB LTB 標準 ライ ブラ リ 

@LrBYEM < ディ レク トリ >…… エ ミュ レー タ 用 ライ プ ブラリ 

BCOM4 5E LTB 独立 型 実 行 フ ァイル 作成 用 ライ プラ リ 
エ S! り 2 し 2m タ 倫 算 ライ ブラ 

BRUN45E LTB 分 離 型 実 行 フ ァイル を 作成 する た め の ラ イブ ラリ 
実行 時 に BRUN45E .EXE が 必要 。 エ ミュ レー タラ イプ ラリ 


信 U り SERLITB < デイ レク トリ >…… ユ ー ザ ライ プラ リ 

ALL MAKE BAT ※ メイ ク バ ッ チ ファ イル 

DOSCALL OBJ 汎用 ルー チン 用 オプ ジェ クト ファ イル 
GEN BAS ※ 汎用 ルー チン ライ ブラ リ ソー ス フ ァ イル 


ご 
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GEN 
GEN 

GEN 
GENDEMO1 
GENDEMO2 
GEN MAKE 
GRAPH 
GRAPH 
GRAPH 
GRAPH 
GRPDEMO1 
GRPDEMO2 


GRP_MAKE 


MOUSE 
MOUSE 
MOUSE 
MOUSE 
MOUSEVNT 
MOUSEVNT 
MUSDEMO1 
MOUSDEMO2 
MOUS MAKE 





BT  ※ 汎用 ルー チン ライ ブラ リ イン クル ー ド ファ イル 
LTB 汎 用 ルー チン ライ ブラ リ 
OLB 汎 用 シー チン Quick ライ ブラ リ 


BAS) ※ 江 用 ルー チン ライ プラ リ サン プル 

BAS ※ 汎 用 ルー チン ライ ブラ リ サン プル 
スイ クル クチ 当 衣 湖 
拡張 グラ フィ イッ ク ライ プラ リ ソー ス フ ァ イル 
拡張 グラ フィ ッ ク oOuick ラ イブ ラリ 
拡張 グラ フィ ッ ク ライ プラ リ イン クル ー ド ファ イル 
拡張 グラ フィ ッ ク ライ ブラ リ 
拡張 グラ フィ ックス サン プル 
拡張 グラ フィ ックス サン プル 
メイ ク バ ッ チ ファ イル 
マウ スラ イヴ ラ リリ ツー デス フ ァ ザ 履 
マグ スラ イジ ウリ イシ ンク 必 ご RM0M 
マウ スラ イプ ウ リリ 
マウ ス Quick ラ イプ ラリ 
マウ スイ ベン ト ソー ス フ ァ イル 
マウ スイ ベン トド オプ ジェ クト ファ イル 
マウ ス サン プル 
マウ ス サン プル 
メイ ク バ ッ チ ファ イル 


針 アド バイ ザ デ ィ ス ク 


OBADVR < デイ レク トリ > ヘル プ フ ァ イ ル 


HELPMAKE 
OB450CK 
OB4 5ADVR 
OB4 5ENER 
OB45USER 


OB45USER 


ヘル プ 作 成 ツ ー ル 


HLP 

HLP 

OH  ※ OB45USER.HLP の テキ スト ファ イル 。 ヘ ルプ を 追加 する 場 
合 に 、 こ の ファ イル を 変更 





第 2 章 「QB 起 動 デ ィ ス ク ] を つく る 


第 2 章 「Q 日 起動 ディ スク 」 を 作る 





1.1 セッ ト ア ッ プ 前 準備 





[QB 起動 ディ スク | の 章 で の セッ ト ア ッ プ の 方 法 は 、『 フ ロッ ピー ディ スク へ の 
セッ ト ア ッ プ の 方 法 』 と 、『 ハ ー ド ディ スク へ の セッ ト ア ッ プ の 方 法 が あり ます 。 
ここ で は 、 フ ロッ ピー ディ スク へ の セッ ト ア ッ プ で 、 な お か つ 、V4.5$ に つい て 行 な 
いま す 。 ハ ー ド ディ スク に つい て は 、「2.5 ハー ド デ ィ スク へ の セッ ト ア ッ プ 」 
を 参照 し て くだ さい 。 も し 、V4.2 に つい て の 説明 が 必要 で あれ ば 、 本 書 の 『 付 録 
を 参照 し て くだ さい 。 

セッ ト ア ッ プ を 開始 する 前 に 、MS-DOS シ ステ ム を 転送 し た フォ ー マ ッ ト 済 み フ 
ロッ ピー ディ スク 1 枚 と 、 フ ォ ー マ ッ ト の み の フ ロッ ピー ディ スク 2 枚 を 準備 する 必 
要 が あり ます 。 


叶 ディ スク の フォ ー マ ッ ト 


1 枚 目 の フロ ッッ ピー ディスク に は MS-DOS シ ステ ム を 転送 し ます 。 
MS-DOS の シス テム を 転送 する に は /5 スイ ッ チ を つけ て フォ ー マ ッ ト し て くだ さる 
い (A ド ライ ブ に MS-DOS の シス テム ディ スク 、B ド ライ ブ に フォ ー マ ッ ト す る ディ 
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スク を 入れ て いる も の と 仮定 し ます ) 。 


B: を 忘れ な いよ うに ! 


「 リ ターン | 


R>FORIT B:2S$ 
Format Uersion 4.1g 


4 


別 の ディ スク を フォ ー マ ッ ト し ます か (YAN) 





残り の 2 枚 は 、 シ ステ ム の 転送 は 行ない ませ ん 。 


フォ ー マ ッ ト が 終了 し た ら 、 デ ィ ス ク を 入れ 替え て 、 “Y” を 押し て くだ さい 。 


グ 付属 ラベ ル を 貼る 
フォ ー マ ッ ト し た フロ ッ ピ ー デ ィ ス ク に 、 付属 の ディ スク ラベ ル を 貼り ます 。 セ 
ッ ト ア ッ プ は 、 デ ィ ス ク の 交換 を この ラベ ル 名 で 指示 し ます の で 必ず 貼る よう に し 


る る 可 あ We 
1 . MS-DOS を 転送 し た ディ スク に は 、 [QB 起動 ディ スク ] ラベ ル を 
貼り ます 。 
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第 2 章 「QB 起 動 デ ィ ス ク ] を つく る 


2. 残り の ディ スク に は 、 [QB ワー ク デ ィ ス ク ] 、 [QB アド バイ ザ デ 
ィ ス ク ] の ラベ ル を 貼っ て くだ さい 。 日 本 語 フ ロン ト エ ンド プロ セ 
ッ サ を 使う 人 は 、 手 書き の ラベ ル で 、「 辞 書 デ ィ ス ク | を 作り ます 。 
2HD の フロ ッ ピ ー デ ィ ス ク を 使っ て いる と き に は 、QB コ ン パ イラ は 、 
[QB 起動 ディ スク ] に セ モット アッ プ さ れ ま す 。 


3 MS-DOS の シス テム の な い 人 


MS-DOS シ ステ ム を も っ て いな い 人 は 購入 し て くだ さい 。 一 一 で 、 終 わり と いう 
の は 、 あ まり に 味気 な い 。 も し 、MS-DOS の シス テム を も っ て いな い 人 は 、 い ずれ 
購入 され た ほう が いい と は 思い ます が 、 と りあ え ず 、「 一 太郎 』 か 『 新 松 』 な どの 
MS-DOS で 動く アプ リケーション ソフ ト を 使う こと に し ます 。 ま た 、 そ の ほか の ア 
プリ ケー ショ ン ソ フト を 使用 する 場合 で も 、FORMAT.EXE あ る い は FORMAT.COM 
の ファ イル が あれ ば 使う こと が で きま す 。 一 太郎 の 中 に は 、FORMAT.COM が 入っ 
て いま す 。 


1 . アプ リケーション ソフ ト を 起動 し て 、 終 了 さ せま す 
2 . 画面 上 に A> が 表示 され て いる 状態 と し ます . 


これ で 、 以 後 、MS-DOS の シス テム は 、 ア プリ ケー ショ ン ソ フト か ら 借 用 する こ 
を 台 し まず 。 








1. 入門 編 





2.2 セッ ト ア ッ プ プロ グラ ム の 使い 方 





セッ ト ア ッ プ プロ グラ ム を 起動 する た め に は 、MS-DOS の シス テム を 起動 きせ る 
必要 が あり ます 。 そ し て 、 起 動き され た な セットアップ プロ グラ ム は 、 画 面 上 に メッ セ 
ー ジ を 表示 し ます か ら 、 じ っ くり と 読ん で 、 画 面 の 指示 に 従っ て くだ さい 。 

この セッ ト ア ッ プ プロ グラ ム は 、 [Quick BASIC の 利用 環境 の 作成 ] と 「OB の 概 
要 と 操作 環境 の 説明 ] を 行ない ます 。 


1 MS-DOS の シス テム の 起動 


フォ ー マ ッ ト す る と き に 使っ た MS-DOS の シス テム を 、A ド ライ ブ に 入れ て 、 リ セ 
ッ ト ボ タン を 押し ます 。 そ し て 、 画 面 を A> の 状態 に し ます 。 

も し 、 画 面 が A> の 状態 に な っ て いる な ら 、MS-DOS の シス テム を 入れ 直す 必要 は 
あり ませ ん 。 


1 . 画面 に A> が 出 て いる こと を 確認 し ます 。 

2. A ド ライ ブ に 、Quick BASIC の マス ター ディ スク 「 セ ッ ト ア ッ プ プ 
ログ ラム 」 を 入れ ます 。 

3 . SETUP [リタ ー ン ] 


Quick BASIC セ ッ ト ア ッ プ ユー ティ リティ が 起動 きれ 、 画 面 に 、 連 続 4 枚 の メッ セ 
ー ジ が 表示 され ます 。 プ ログ ラム を 中 断 す る 場合 に は 、[CTRLj+[C] を 押し ます 。 
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ct 選 1 
の 処理 を 行っ て くだ さ 


細 
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3 
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6 も ーー 上 mm 
JnNeRy③ 
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うめ 計 て 
こと 


| 


【 何 か キ ー を 押し て 下さ い 】 





^ 1 枚 目 














用 環境 の f 
に 2 に 10 


ー で 人 


kB 


コ 
G 


説明 が 


ます . 良けれ ば 次 の 画 


【 何 か キ ー を 押し て 下さ い 】 





4 2 枚 目 
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【 伺か キー を 押し て 下さ い 】 














は fh 
で 滞 ら に 


に 人 


【 何 か キ ー を 押し て 下さ い 】 





^ 3 枚 目 


ッ プ し た と き 「Q 


YS。NEU-URS.BRT 
て くだ 


に に また 


N "PRINT.SY 


ONFIG.SYS を 書き 





44 枚 目 


第 2 章 「QB 起 動 デ ィ ス ク ] を つく る 





2 3 セッ ト ア ッ プ ユー ディ リ デ ィ メ ニュ ー 





セッ ト ア ッ プ プロ グラ ム が 起動 し て 、 次 々 に メッ セー ジ を 読み 、 セ ッ ト ア ッ プ 画 
面 を $ 回 切り 換え る と 、 メ ニュ ー が 表示 され ます 。 あ と は 、 こ の メニ ュー に 従っ て 、 


1 . Quick BASIC の 「 起 動 デ ィ ス ク | の 作成 
2 . QB の 使い 方 
3. 終了 


の 中 か ら 「 1 . | を 選択 し ます 。 


Uersion 1. 串 


r 


の 】 ゴ 7 た も | 


で の 利用 環境 
リア ル | か 下 動 し ます 。 


館 
きよ 
回 
6 


沖 癌 \ SNI> 
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1 . 入門 編 


1 Quick BASIC の 「 起 動 デ ィ ス ク | 作成 


メニ ュー か ら 「 1 . Quick BASIC の 利用 環境 を 作成 し ます 。」| を 選択 し ます 。 

セッ ト ア ッ プ プロ グラ ム が 、 い くつ か の 質問 を し ます 。 各 質問 に つい て の 説明 が 
画面 の 下部 に 表示 され る の で 、 そ れ ぞ れ を よく 読ん で 、 質 問 に 答え て くだ さい 。 理 
解 で き な か っ た と ころ は 、 と りあ え ず 「 パ バス] の 気持 ち で 、 セ モッ ト ア ッ プ ユー ティ 
リティ が 指示 し て いる 番号 の まま 、 先 へ 進め ます 。 

1 画面 ご と に 、 そ の 画面 の 設定 で よい か どう か 確認 し (て きま す 。 よ けれ ば 次 の 画 
面 へ 進み 、 修 正 し た けれ ば 、 そ の 画面 を 修正 で きま す 。 終了 する と 、 メ ニュ ー に 戻 
り ま すか ら 、「3. 終了 | を 選択 し ます 。 

途中 で セッ ト ア ッ プ を 中 断 す る に は 、[CTRLj+[C] か [STOP] キ ー を 押し ます 。 

質問 中 の 「 転 送 元 ド ライ プ ] と いう の は 、Quick BASIC の マス ター ディ スク を 人 入 
れる ディ スク ドラ イブ の こと で す (た ぶん 、A ド ライ ブ に な っ て いる と 思い ます ) 。 

メニ ュー の 「 2 . QB の 概要 と 操作 環境 の 説明 を 行い ます 。」 に は 、Quick BASIC 
の 概要 を 説明 し た 、「QOB チ ュー トリ アル | が 含ま れ て いま す 。 こ の メニ ュー を 選ぶ 
と 「QB チ ュー トリ アル 」 を 起動 し ます 。 特に セッ ト ア ッ プ と 関係 あり ませ ん の で 、 
画面 の 説明 を 読ん で 指示 に 従っ て くだ さい 。 説明 が 終わ る と MS-DOS に 戻り ます 。 
も う 一 度 、 見 直し を し た いと き に は 、 再 度 、SETUP [リタ ー ン ] と 入力 し て 、 セ ッ 
ト ア ッ プ プロ グラ ム を 起動 し て くだ さい 。 


グ [起動 ディ スク ] の ファ イル を 見 る 


セッ ト ア ッ プ され た 「 起 動 デ ィ ス ク | の 中 を 見 ます 。A: ド ライ ブ に 、 た っ た 今 、 
セッ ト ア ッ プ され た 「 起 動 デ ィ ス ク | を 入れ ます 。 


DIR A: [リタ ー ン ] 
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R>DIR 


ドラ : の ディ スク ムラ ベル は あり ませ ん . 
ディ ルク ドリ は 人: 


CONND CO に に 3| 
に 31| <DIR> 
LIE 3 り に 92 
RUTOE:EC BT 
CONFIG SYS 


73 
5 
5 個 の ファ イ 


131972 バイ ト ト が 人 





さら に 、CONFIG.SYS を 見 て み ま す 。 


TYPE CONFIG.SYS [リタ ー ン ] 





SHELL=A :\COMMAND .COM A:\ /P 
FILES=20 
BUFFERS=10 





続い て 、AUTOEXEC.BAT の 中 も 見 ます 。 


TYPE AUTOEXEC.BAT [リタ ー ン | 





PATH=A :\BTN 

SET LTB=A:\LTB 

SET INCLUDE=B :\TNCLUDE 
SET TMP=B:\ 

MOUSE 
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1. 入門 編 


CONFIG.SYS の ファ イル は 、 日 本 語 エ ンド フロ ント プロ セッ サ の 組み 込み が され 
て いま せん 。 ま た 、AUTOEXEC.BAT は 、 自 動 的 に Quick BASIC が 起動 で きる よう に 
は な っ て いな い の が わか る と 思い ます 。 も し 、 日 本 語 の 入力 を 考え を ない の で あれ ば 、 
この まま 使う こと が で きま す 。 


1 . A ド ライ ブ に 「QB 起 動 デ ィ ス ク 」 を 入れ る 
2. B ド ライ ブ に ワー ク デ ィ ス ク を 入れ る 

3. リセ ッ ト ボ タン を 押す 

4 . 画面 に A> が 表示 され た の を 確認 する 

5 . QB [リタ ー ン ] と 入力 する 





Melcomes to 
icrosoft (R) QuickBHSIC Uersion 4.5gJ 


) Lopufidht Ficrosoft Corporation。 1985-1989. 
Hll rights reserved. 


現在 . Eas ゅ メニ ュー で 起動 し て いま す 
RETURN キ ー で GE アド バイ ザ が 表示 され ます 


ー で 編集 画面 に 移り ます 














パソ コン の 電源 を 切る 
MS-DOS を 使っ て いる アプ リケーション ソフ ト を 終了 させ て も 画面 上 に A> が 表 
示さ れ ま す 。 こ の 状態 に な っ た ら パ ソコ ン の 電源 を 切る こと が で きま す 。 
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2.4 日 本 語 フ ロン ト エ ンド プロ セッ サム 組み 込み 





Quick BASIC に 日 本 語 入 力 シ ステ ム を 組み 込む 場合 は 、 好 み の フ ロン ト プ ロ セッ 
サ を 組み 込む こと に な り ま す 。 こ こ で は 、Quick BASIC が 推 装 し て いる ATOK6 を 組 
み 込 むこ と と し ます 。 そ の ほか の フロ ント プロ セッ サ の 場合 は 、 そ れ ぞ れ の マニ ュ 
アル を 参照 し て 各自 で 行なっ て くだ さい 。 な お 、 フ ロン ト プ ロ セッ サ は 、 次 の よう 
な 制限 が 設け られ て いま す 。 

ATOK6、MS$KANJI API 仕 様 の も の (VJE- 3 V2.0 以 上 、E1 な ど ) で す 。 

フロ ント プロ セッ サ の セッ ト ア ッ プ は 、 フ ロン ト プ ロ セッ サ の デバ イス ドラ イ バ 
を 「QB 起 動 デ イィ スク] に 転送 し 、 辞 書 は 「QOB ワ ー ク ディ スク 」| に 転送 する こと と 
し ます 。 「QB ワ ー ク ディ スク | の ディ スク 容量 が 不足 する 場合 は 、 こ の ディ スク に 
転送 され て いる ヘル プ フ ァ イ ル と サン プル プロ グラ ム を 削除 し て くだ さい 。 

組み 込み は 、 次 の 順番 で 行ない ます 。 


1. 「 一 太郎 V3] を 起動 / 終 了 

2. フロ ント プロ セッ サ の デバ イス ドラ イ バ (ATOK6A.SYS 、 
ATOK6B.SYS) を 転送 

. 辞書 (ATOK.DIC) を 転送 

。A ド ライ ブ に 「 一 太郎 V3 の ユー ティ リティ ディ スク | を 入れ る 
FUIP EU ま ー) 

.。 AUTOEXEC.BAT の 書き 換え 

wp 本 


>) の O) の (の 


1 デバ イス ドラ イ バ の 転送 


まず 、「 一 太郎 V3| を 起動 し て 終了 させ 、A> が 表示 され て いる 状態 で 、B ド ライ 
プ に 「QB 起 動 デ ィ ス ク | を 入れ て 、ATOK6A.B を 転送 し ます 。 








1. 入門 編 


RCOPY TOK6?.* B: 
RTOK6R.SYS 


.SYS 
2 個 の ファ イル を コピ ー し まし た . 





INS 


辞書 の 転送 


B ド ライ ブ に 「QOB ワ ー ク ディ スク | を 入れ ます 。A ド ライ ブ は 、「 一 太郎 V3| の 
シス テム ディ スク の まま で す 。 


RCOPY R:RTOK.DIC B: 
1 個 の ファ イル を コピ ー し まし た . 


2 





も し 、「QB ワ ー ク ディ スク 」 の 容量 不足 で 転送 が うま くい か な か っ た 場合 に は 、 
「6. 辞 書 組み 込み で 削除 で きる ファ イル | を 参照 し て くだ さい 。 


う ② デバ イス ドラ イ バ の 組み 込み 


A ド ライ ブ の 「 一 太郎 V3 う ] の シス テム ディ スク を 一 大 郎 の エ ユー ティ リティ ディ ス 
ク と 入れ 替え ます 。B ド ライ プ へ は 、「QB 起 動 デ ィ ス ク | を 入れ ます 。 こ こ で は 、 
「QB 起 動 デ ィ ス ク | の CONFIG.SYS を 一 太郎 の ユー ティ リティ ディ スク を 使っ て 、 
書き 換え よう と いう わけ で す 。AF ド ライ ブ に 一 太郎 の ユー ティ リティ ディ スク を 入 
れ た ら 、ATUT [リタ ー ン ] と 入力 し ます 。ATOK6 環 境 登録 エー ティ リティ が 起動 
の 

辞書 ドラ イブ は 、 カ ー ソ ル 移 動 キ ー で B ド ライ ブ を 指定 し ます 。 ま た 、 入 力 位置 
は 「 エ コー」 を 選択 し ます 。 「 エ コー| は Quick BASIC が 起動 し た と き に 、 カ ー ソ 
ル の ある 位置 に 日 本 語 が 入力 され 、「 シ ステ ムラ イン ] は 入力 され た 日 本 語 が いっ 
た ん 画面 の 下 に 表示 され た あと 、 カ ー ソ ル 位 置 に 移動 し ます 。 
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る 重 加 ・ | 」 キー。 と つ キ - 確定 : 改行 キ le 呈 StSKGE こ 


CONFIG.SYS の 更新 を 聞い て きま す の で 、 [は い ] を 選択 し て くだ さい 。 更新 を 
行なう ドラ イプ は その あと で 聞い て きま す 。 更 新 の ドラ イプ は 「B] で す 。 
CONFIG.SYS の 書き 換え は 、 こ れ で 終了 で すか ら 楽 で し ょ う 。 

書き 換え た CONFIG.SYS を 見 て み ま す 。 


E CONFIG.SY 
COIWND.COM キイ 


DEUICE=QTOK6R 
DEUICE=RTOK6B. 
に 壮 : 


1 Ci 朋 (U 目 Co 眼 1 SU 








1. 入門 編 


旬 AUTOEXEC.BAT の 書き 換え 


自動 的 に Quick BASIC が 起動 する よう に AUTOEXEC.BAT を 書き 換え ます 。 現在 、 














PATH=A :\BTN 

SET LTB=A:\LTB 

SET TNCLUDE=B :\TNCLUDE 
MOUSE 





次 の よう に な っ て いる ファ イル に QB の 2 文字 を 追加 る だ け で す 。 
1. 「QB 起 動 デ ィ ス ク ] を AF ドラ イブ に 入れ て 、 リ セッ ト ボ タン を 押 
し まず 。 
2 . A> に な っ て いる の を 確認 し て 、QB [リタ ー ン ] と 入力 し ます 。 
3 . Quick BASIC が 起動 し ます の で 、[ESC] キ ー を 押し ます 。 
4 . [GRPH] キ ー を 押し て 、 [リタ ー ン ] キー を 押す と 、 サ プ メ ニュ ー 
が 表示 され ます 。 





5. 「O/ 読 込み | を カー ソル 移動 キー で 選択 し ます 。 
6. [リタ ー ン ] キー を 押す と 「O/ 読 み 込み ] 画面 が 表示 きれ ます の 
で 、*. BAT [リタ ー ン ] と 入力 し ます 。 
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較 ファ 本 較 


MO] :OM1 





7 . [TAB] キ ー を 押し ます 

8. 小さ な カー ソル が 見 えて いま す 。[ リ ター ン ] キ ー を 押し て 、 
AUTOEXEC.BAT の ファ イル 名 を 反転 きせ ます 。 

9 . [リタ ー ン ] キ ー を 押し ます 。 

10. AUTOEXEC.BAT の 内 容 が 表示 きれ ます か ら 、MOUSE の あと に QB 
を , 犬 記し 記念 


MOO6: OO 
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1 . 入門 編 
11. [GRPH] キ ー を 押し て 、「F/ フ ァイル | の メニ ュー を 出し ます 。 操 
作 4 と 同じ で す 。 今度 は 、 「A/ 名 前 を 変え て 保存 ] を 選択 し ます 。 


12. 「 保 存 ] メニ ュー が 表示 きれ た ら 、 フ ァイル 名 の 書き 換え を や ら 


ず に その まま 、 [リターン] キー を 押し ます 。 
13. 再度 、[GRPH] キ ー を 押し て 、「F/ フ ァイル | メニ ュー を ひら いた 
あと 、「X/ 終 了 | を 選択 し て 、Quick BASIC を 終了 させ ます 。 


14. リ セッ ト ボ タン を 押す と 、 今 度 は 、 自 動 的 に Quick BASIC が 起動 し 
未 絞 oe 














ファ イル 形式 





) gzGuickBRSIC 
[ 台 


ファ イル 


























ひ っ た も ん だ MS-DOS 

日 本 語 フ ロン ト エ ンド プロ セッ サ の デバ イス ドラ イ バ の 登録 し て 、 自 動 的 に 起動 
で きる よう に セッ ト ア ッ プ で き て も 。 MS-D0S9 の パー ジョ ン に よっ で は 、 プリ ンタ 
が 動か な いこ と が あり ます 。 プ リン タ を 利用 する た め に は 、MS-DOS の シス テム デ 
ィ ス ク に 付属 し て いる プリ ンタ ドラ イ バ を CONFIG.SYS に 組み 込む 必要 が あり ます 。 


使用 する MS-DOS の バー ジョ ン を 確認 し て くだ さい 。 
きら に 始末 の 悪い こと に 、 ド ライ バ は バー ジョ ン に よっ て は PRINT.SYS で あっ た 
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り 、PRINT.EXE で あっ た り と いう こと で 、「 気 を つけ て …… ] と し か いい よう が あ 
り ま せん 。 


1 . PRINT.SYS を 必要 と し いる バー ジョ ン の MS-DOS を 使っ て いる 人 
は 、A ド ライ ブ に MS-DOS シ ステ ム 、B ド ライ ブ に 「QB 起 動 デ ィ ス ク ] 
を 入れ ます 。 

2 . COPY A:PR*.* B: [| リターン] 
この と き 、 拡 張子 が .SYS に な っ て いる か 、.EXE に な っ て いる か を 確 
認 し て お きま す 。 そ れ に よっ て 、CONFIG.SYS の 内 容 が 少し 変わ り ま 
す 。 

3 . CONFIG.SYS の 例 (2 例 掲 載 し て お きま す ) 


FILES = 20 FILES = 20 

BUFFERS = 20 BUFFERS = 20 

日 本 語 フ ロン ト エ ンド プロ セッ サ 日 本 語 フ ロン ト エ ンド プロ セッ サ 
DEVICE = PRINT.SYS DEVICE = PRINT.EXE 


MS-DOS の バー ジョ ン PRINT.SYS 


MS-DOS Ver.2.0 (PS98-121-XXX) 
(PS98-122-XXX) 
(PS98-123-XXX) 
MS-DOS Ver.3.1 (PS98-125-XXX) 
( ) 
( 





PS98-127-XXX 
PS98-129-XXX) 


(PS98-011-XXX) 
MS-DOS Ver.3.3 (PS98-013-XXX) 
MS-DOS Ver.3.3A (PS98-015-XXX) 






35 








1. 入門 編 


辞書 組み 込み で 削除 で きる ファ イル 


日 本 語 フ ロン ト プ ロ セッ サ の 辞書 を 組み 込む の は 、 「QOB ワ ー ク ディ スク | で す 。 
この ワー ク デ ィ ス ク に は 、 次 の よう な ファ イル が 入っ て いま す 。 デ ィ レ クト リ の 頭 
に 〇 印 の つい た ファ イル は 削除 する こと が で きま す (XX 印 は ダメ ) 。 


〇 YADVR /DIrR/ OB45ENER .HLP 
| OB45OCK.HLP 
| OB45USER .HLP 
O⑥wpoc /DrR/ README .DOC 
| SAMPLE .DOC 
X\TNCLUDE /DIR/ GEN.BI 
| __GNCONST.BT 
| GRAPH.BT 
| HWCONST.BT 
| MOUSE.BT 
| OB.BT 
〇 ⑥YsooRcE /DIR/ \ADVR EX /DIR/  *.BAS が 20 フ ァイル 


| _\BOOK /DIR/ 掲載 例 プ アロ グラ ム 、 他 、37 フ ァイル 
| \EXAMPLE  /DIR/ 19 フ ァイル 


| DEMO1 .BAS 
| DEMO2.BAS 

| DEMO3.BAS 

| _QOCARDS.BAS 

| _OCARDS.DAT 

| REMLINE.BAS 

| SORTDEMO.BAS 
| TORUS.BAS 

| _WArTZ.BAS 
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実際 の ファ イル の 削除 例 : \SOURCE を 削除 し て み ま す 。。 


1 . DEL \SOURCE 2 . DEL \SOURCE\ADVER_EX 
3 . DEL \SOURCE\BOOK 4 . DEL \SOURCE\EXAMPLE 
5 . RD \SOURCE\ADVER_EX 6. RD \SOURCE\BOOK 

7 . RD \SOURCE\EXAMPLE 8 . RD \SOURCE 





2.5 ハー ド デ ィ スク ^ へ の セッ ト ア ッ プ 





ハー ド デ ィ スク の セッ ト ア ッ プ を 行ない ます 。 こ の と き の 状 態 は 、AF ド ライ ブ は 
ハー ド デ ィ スク 。B、C が が フロッピー ディス ク ド ラ イブ と し ます 。 


] セット アッ プ メ ニュ ー の 選択 


B ド ライ ブ に マス ター [セットアップ ディ スク | を 入れ て 、A> の 状態 を B> に 変更 
させ ます 。 


A>B: [| リターン] 


B>SETUP [リタ ー ン ] 
メッ セー ジ 画 面 を 4 枚 め くる と 、 セ ッ ト ア ッ プ メニ ュー に な り ま す 。 
グ 利用 環境 の 選択 


メニ ュー 画面 か ら 、「 1 . Quick BASIC の 利用 環境 を 作成 し ます 。」| を 選択 し ま 
す 。 こ こま で は 、 フ ロッ ピー ディ スク の セッ ト ア ッ プ と 同じ で す 。 








1. 入門 編 


TTY で すす て て て て トト トト エ と) 


の 】 TEBASTC 内 
ら ・ Gu jet 抽 } の な 9 吉 人 た 人 成 し ま す 
ち ・ セッ ト ア ッ プ 


DA 


⑯ メ ニュ ー を 選択 し て 下さ い 。 





転送 先 の ドラ イプ は 、「 セ ッ ト ア ッ プ ディ スク | の 入っ て いる ドラ イブ で す 。 こ 
却 合 は 、B を 指定 し ます 。 


続い て 、 イ ンス トー ルド ライ プ ブ の 指定 で す 。 こ ん ど は 、 ハ ー ド ディ スク を 指定 し 
ます 。A を 入力 し て くだ さい 。 


Uersion 1.g 


Q 


口 
や 
1 
ど 
本 
備 
6 


4 さっ に 
On ニー へ KO 
画 dwO と だ ロ せ 詩 ( 


虹 出 


で 選 
融 コ c エ で 
に に 下 マ )RN 
ご ビ の eS 【 
人 き 士 昌 3 


トー メー 
ンー ン : 
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フロ ッ ピ ー デ ィ ス ク の イン スト ー ル と 人 邊 う の は 、 セ ッ ト ア ッ プ メニ ュー の 中 に パ 
ス デ ィ レ クト リ の 設定 が 入っ て きま す 。 テ ン ポ ラリ ファ イル は 、RAM デ ィ ス ク を 使 
っ て いた ら 、D:\ に し て お く と 、 ハ ー ド ディ スク の メモ リー の 節約 が で きま す 。 


H 実行 アル QB45BIN 

し イイ クル ー ト 、 ファ イル EQB45\INCLUDE 
! ラブ" ラリ ファ ル 

! HELP フル 


[DEL] キー 





あと は 、 画 面 上 に マス ター ディ スク の 差し 替え の 指示 が 出 ま す 。 そ れ に 従っ て い 
け ば 、 自 動 的 に ファ イル の コピ ー を 行なっ て くれ ます 。 コ ビー が 一 段落 する と メニ 
ュー に 戻り ます 。「3] を 選択 し て セッ ト ア ッ プ は 終了 で す 


の 


う CONFIG.SYS と AUTOEXEC.BAT の 書き 換え 


自動 的 に OB453 と いう ディ レク トリ が 作成 され 、 デ ィ レ ク トリ の 中 に 次 の よう な フ 
ァイル が 入っ て いま す 。 
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1. 入門 編 


RE あ 0 に 9 れい) 


Ri ギ fB45>DIR 


プル プ の ディ スク の ボリ ュー ムラ ベル は あり ませ ん 
レク トリ は Ri:*QB45 


3 に 6 9g-95-2 
K り に 02 99g-95-92 
に 6 9g-| %- 2 
3j に 6 
に 6 
ドコ <DIR> 
ADUR <DIR> 
DOC 9 に 0 
NEM-URS BaT 88 < 
gi ド ) 4) に 】! 
9 個 の ファ イル が 
28794889 バイ ト が 使用 可能 


iQB45> 


LC UN ro | 較 是 tt MI FEF 上 | 





画面 上 の NEW-VARS.BAT は Quick BASIC V4.$ 用 の AUTOEXEC.BAT で す 。 
また 、NEW-CONF.SYS は 、CONFIG.SYS の 参考 ファ イル で すか ら 、 ハ ー ド ディ ス 
ク の AUTOEXEC.BAT と CONFIG.SYS の 書き 換え の 参考 に し て くだ さい 。 


NEW-VARS.BAT の 内 容 


PATH=A :\OB45\BTN 

SET LTB=A :\OB45\LTB 

SET TNCLUDE=A :\OB45\TNCLUDE 
SET TMP=D:\ 





NEW-CONF.SYS の 内 容 


SHELL=A :\COMMAND .COM A:\ /P 
FTLES=20 


BUEEFERS=10 
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2.6 Quick BASICo 起 動 と 終了 





セッ ト ア ッ プ が 無事 終了 し まし た 。 い よい よ 、Quick BASIC の 起動 と 操作 と 終了 
の 一 連 の 流れ を 経験 し ます 。 ま ず 、AF ラ イブ に 「QB 起 動 デ ィ ス ク | を 、B ド ライ 
プ に 「 ワ ー ク ディ スク 」] を 入れ ます 。 「 ワ ー ク ディ スク 」| は 、 単 に MS-DOS で フォ 
ー マ ッ ト さ れ た だ け の ディ スク で 、 こ こ に 作成 し た プロ グラ ム を 保存 し ます 。 


1 Quick BASIC の 起動 


「QB 起 動 デ ィ ス ク | を A ド ライ ブ に 入れ た あと 、 リ セッ トス イッ チ を 押し ます 。 
画面 上 に 、MS-DOS の バー ジョ ン 表 示 、ATOK の シス テム と コピ ー ラ イト の 表示 後 、 
自動 的 に Quick BASIC が 起動 し ます 。 自動 的 に 起動 し て いる 関係 上 、 画 面 の 中 央 の 
プロ グラ ム フ ァ イル 名 の と ころ に 、「UNTITLE」 (ファ イル 名 ナシ ) と 表示 され ま 


すず 。 
この 状態 が 気持 ちの 亜 い 和 人 は 、「QB 起 動 デ ィ ス ク | の AUTOEXEC.BAT の QB を 削 


除 し て 、Quick BASIC を 起動 きせ ます 。 画面 上 に A> が 表示 され た ら 、QB B: プ ログ ラ 
ム 名 と 入力 し て 、Quick BASIC を 起動 きせ る と 、B ド ライ ブ に ファ イル 名 .BAS と いう 
名 前 で ファ イル が 作ら れ ま す 。 


例 : A>OB B:SAMP .BAS [リタ ー ン ] 








1. 入門 編 





メイ ン メ ニュ ー バ ー に 表示 され て いる 8 項目 の 頭 文 字 を 入力 する か 、 カ ー ソ ル 移 動 
キー [一 ] [一 ] を 使っ て 、 項 目 を 反転 させ た あと [リターン] キー を 押し ます 
反転 きれ た メニ ュー の 項目 に よっ て は 、 さ ら に 、 サ ブ プ の メニ ュー が プル ダウ ン で 表 


示さ れ ま す 。 こ の 項目 の 選択 も 頭 文 字 が カー ソル 移動 キー で 行ない ます 


ド S 


メニ ュー 操作 で 使う キー 


メニ ュー 操作 は 、 大 きく 分 ける と 3 つの 方 法 が あり ます 。 ま た 、 こ の 方 法 は 混在 し 


て 使う こと が で きま す 


1. キー ボー ド か ら の 入力 


(GRPH ギ 一 waetsrcos 押す こと で 、 メ ニュ ー 選 択 モ ー ド に な り ま す 

Ne WCahuoevssee メイ ン メ ニュ ー の カー ソル を 移動 し ます 

画 問 居 | RCCCCTYYYTYYYY サ プ メ ニュ ー カ ー ソ ル を 移動 し ます 

[TAB] キ ー < ザビ (ゲル ダ 硝 シン シ ) 光 喧 ー 内 の 項 | | を 次 に 進め ます 


[SIFT]+[TAB] キ ー… サブ (プル ダウ ン ) メニ ュー 内 の 項目 を 1 つ 前 に 戻し ます 
[リタ ー ン ] キ ー…… メニ ュー カー ソル の ある 項目 を 実行 し ます 


[ESC] で で ooo … メニ ュー 処理 を キャ ン セ ル し ます 
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2 . マウ ス 操 作 で 入力 
マウ スカ ー ソ ル を メニ ュー の 項目 に 移動 し て 、 左 ボタ ン を クリ ッ ク (押す ) 

し て 選択 し ます 。 


3. ショ ー ト カッ トキ ー 操 作 
サ プ メ ニュ ー の 項目 の 右 横 に 、 示 きれ て いる キー が ショ ー ト カッ トキ ー で す 。 
この ショ ー ト カッ トキ ー を 使え ば 、 メ ニュ ー を 表示 し て 項目 を 選択 する 手間 が 
省け ます 。 


た と えば 、 プ ログ ラム の 実行 は 、 1 の メニ ュー 操作 を 行なう と 、[GRPH] キ ー を 押 
し て 、 メ イン メニ ュー バー に カー ソル を 移動 させ た あ と 、R/ 実 行 メ ニュ ー か ら プ ル 
ダウ ン メ ニュ ー を ひら いて 、S/ ス ター トコ マン ド を 選択 する こと に な り ま す 。 2 の 
マウ ス 操 作 に お いて も 、 同 じ よ うに 、 そ れ ぞ れ の 項目 を クリ ッ ク し て いき ます 。 そ 
れ が 、 シ ョ ー ト カッ トキ ー で あれ ば 、[SIFT] キ ー を 押し た まま 、[f・3] を 押す だ け で 、 
た だ ち に 実行 で きま す 。 

あわ て て 、 ま る ご と ショ ー ト カッ トキ ー を 覚え る 必要 は あり ませ ん 。 ま た 、 い っ 
き に 覚え る こと は 無理 で すし 、 精 神 衛生 上 も よく あり ませ ん 。 こ こ で は 、2 つ の キー 
操作 に つい て 覚え て くだ さき さい 。 


メイ ン メ ニュ ー バ ー へ の カー ソル 移動 は 、[GRPH] キ ー 
BASIC の 実行 は 、[SIFT] 十 [f・5] キ ー 

②③ サン プル プロ グラ ム の 実行 

サン プル プロ グラ ム を 画面 に 読み 込ん で 、 プ ログ ラム の 実行 を 行ない ます 。 
1 . [GRPH] キ ー を 押し て 、 メ イン メニ ュー バー に カー ソル を 移動 させ 


る 。 
2 . F/ フ ァイル の 項目 を 反転 きせ 、[ リ ター ン ] キ ー を 押す 。 
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1. 入門 編 


が 2 ト モト 


MO1:OM1 





3. ファ イル 名 の 入力 画面 が 表示 され る 。 

4 、B: を 入力 し て 、 ド ライ プ ブ の 指定 を B ド ライ プ ブ プ に する (この と き 表 示 
され て いる ファ イル 名 を [BS] キ ー を 使っ て 消す 必要 は な い ) 

5. [TAB] キ ー を 押し て 、 フ ァイル 名 一 覧 の ウィ ンド ウ の 「D/ デ ィ レ ク 
トリ 」 へ カー ソル を 移動 させ る 

6. サ プ デ ィ レ クト リ の 「SOURCE」 を 選ん で 、[ リ ター ン ] キ ー を 押す 








DO 


INCLUDE 














CM 
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7. 拡張 子 「.BAS|」 の つい た サン プル プロ グラ ム が 表示 され る の で 、 
[TAB] キ ー で 、 カ ー ソ ル を ジャ ンプ させ た あと 、 カ ー ソ ル 移 動 キー 
( [一 ] [一 ] [ 1] [!] ) を 使っ て 、 フ ァイル を 選択 する 。 





ミロ ルー] 王 ン 


ァイル 名 を 設定 し て 








N> フ ァイル 名 : |RETLINE.ERS 





B: ま SOLRCE 





[EID1 .EH < 
DEIO2.ER HDLUR_EX 


[ETOS.ERS Et 
ExHIPLE 


[- ロ -] 

















8 . ここ で は 、 一 例 と し て 、WALTZ.BAS を 選択 。 [リターン] キー を 押 
す と 、 画 面 に サン プル プロ グラ ム が 読み 込ま れる 。 

9 . BASIC の プロ グラ ム 実 行 の ショ ー ト カッ トキ ー は 、[SIFT] 十 [f・5] で 
し た 。 こ れ で 、 プ ログ ラム 表示 の 編集 画面 が 切り 換 わ っ て 、WATZ. 
BAS が 実行 され る 。 画面 表示 を し な が ら バ ッ ク グ ラウ ンド ミュ ー ジ 
ッ ク が 流れ る 。 
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入門 編 


いろ いろ な 、 サ ンプ ルプ ログ ラム を 走ら せ て みて くだ さい 


さん 詰まっ 


CONST HighY 
CONST High% 
CONST Low% = 9g 
CONST LowY = 16 


NPUT 入力 し て 下さ い .": Numz 
INPUT 牧 の 委 を の し て さい "Shad% 
SCREEN 9 

DI Xz(Numz,。 1) 。Y%(NUmz, 1) 

DI dz(Numz, 1) , 

Fi TIPER 


プロ グラ ム を 組む た め の ノ ウ ハ ウ が た く 


9991:M1 
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ICMS ま 9 


人 





第 2 章 「QB 起 動 デ ィ ス ク ] を つく る 


旬 Quick BASIC の 終了 


Quick BASIC の 終了 も F/ フ ァイル で プル ダウ ン メ ニュ ー を 表示 し て 、[ 1] [!] 
キー で 、X/ フ ァイル を 選択 し ます 。 メ イン メニ ュー バー へ の カー ソル の 移動 は 
[GRPH] キ ー で す 。 





サン プル プロ グラ ム を 書き 換え た 場合 に は 、 次 の よう な メッ セー ジ が 表示 され 、 
プロ グラ ム の 保存 の 有無 を 開い て きま す 。 今回 は 、 サ ンプ ルプ ログ ラム を 動か し て 
みる と いう こと で あっ た の で 保存 は 行ない ませ ん 。[N] キ ー を 押し ます 。 

つい で と いう の も 変 で す が 、 サ ンプ ルプ ログ ラム の 実行 画面 を あと 2 つ 紹 介し て 
お きま す 。 
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人 入門 編 


ム 例 は , バッ ク ク ラ ウン ドミ ュー ジッ ク を 演奏 し な が ら 他 の 処理 を 
の 参考 で ま E 記 


C-9891E-F1. で は , て き MK 





(Num%。 1) 。 YZ(Numz。 1) 
%(Num%, 1), dY 4 1) 。 px%(Num%。 1, Shad%) 。 pY%(Numz。 1 Shad%) 


ダイ 2 モト" 


MOI:OM 





ATOROS.BAS の 実行 画面 


第 2 章 「QB 起 動 デ ィ ス ク 」 を つく る 


マヤ FONTMAG.BAS の 実行 画面 





試し て みよ う > ラ ーーーーーーーーーーーーーーー ニ ーーーーー ニ ーーー ニー ニー ニーー ニ ーー 
MS-DOS の MS-DOS と いう 名 前 は 、 マ イク ロ ソ フト 社 の ディ スク ド 
COPY コ マン ド ラ ィ フォ オペ レー ティ ング シス テム と いう 意味 で す 。MS- 
の 広 、 用 DOS の コマ ンド で OS を 体感 し て み ま し ょ う ドラ イブ B に 


RENDAT.DAT (練習 デー タ . デ ー タ 、 安 直 な 命名 ) で 、GO ! 
MS-DOS は 、 自 分 自身 が 4 つの ファ イル を も っ て いま す 


CON 入力 し て いる と き は 、 キ ー ボ ー ド 。 出 力 さ れる と き は 、 画 面 
PRN プリ ンタ 
AUX RS-232C 
NUL ヌル 
CON は 、A> の 状態 の と き 、 直 接 フ ロッ | em 


ー ニ ディス ク に 書き 双 


)y 
m 
(と 
C エ 
{Y 
(で 
人 
7 
My 
す t 


この RENDAT.DAT の 中 身 を 見 る と き に 1 個 の ファ イル を コピ ー し まし た . 
は 、TYPE コ マン ド を 使い まし た が 、 


ェ 


COPY コ マン ド で 見 る こと が で きま す 
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A>COPY B:RENDAT.DAT CON [リタ ー ン | 
ドラ イブ B の ファ イル 、RENDAT.DAT を 画面 に コピ ー し ます 。 さ て 9 どう な り 
まし た か 。 TYPE コ マン ド と 同じ よう に 画面 に 表示 され まし た よね 。 どこが 、TYPE 


コマ ンド と 違っ て いま すか 。 TYPE コ マン ド と 比べ て くだ さい 。 


A>TYPE B:RENDATA.DAT [| リターン] 


R>COPY_ B:RENDRT.DRT CON 
HRRRRRRR R>TYPE B:RENDRT.DRT 
FRRRRRRR 


BBBBBBBB 
CCCCCCCC 


> 


BBBBBBBB 
CCCCCCCC 
1 個 の ファ イル を コピ ー し まし た . 


> 





4^COPY B:RENDAT.DAT COM ATYPE B:RENDAT.DAT 

MS-DOS の 画面 の 状態 (A>) で 、 キ ー ボ ー ド か ら 人 入力 し た 文字 を 、 そ の まま 画面 
に 表示 し ます 。 入力 が 終わ っ た こと を コン ピュ ー タ に 教え る の は 、[CTRL] 十 [Z] キ ー 
窟 可 。 


A>COPY CON CON [リタ ー ン ] 


適当 に キー ボー ド か ら 文 字 を 入力 し て み ま し ょ う 。 日 本 語 を 入力 する 場合 に は 、 
[CTRL] 士 [XFER] で 、 日 本 語 入力 状態 に し ます 。 


S0 


第 2 章 「QB 起 動 デ ィ ス ク ] を つく る 





プリ ンタ を も っ て いる 人 は 、CON を PRN に 変え て 、 実 行 し て みて くだ さい 。 
A>COPY B:RENDAT.DAT PRN [| リターン ] 


で 、 フ ァイル の 中 身 が 、 プ リン ト ア ウト され ます 。 
ま 縮 3 


A>COPY CON PRN [リタ ー ン ] 


で 、 簡 易 タ イプ ライ ター に 変身 で す 。 


ーーー ニ ーー ニーーー ニ ーー ニーーーーーー テ ーー ンー ピピ 
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1. 入門 編 


第 3 章 プロ グラ ム の コン パイ ル 





3.1 コン ピュ ー タ ^ の 命令 と 結果 の 表示 





プロ グラ ミン グ と は 、 コ ンピュータ を 動か す た め の 命令 を 、 ユ ー ザ ー で ある “ あ 
な た "が 書い て いく こと で す 。 そ し て 、 コ ンピュータ が 働い た 結果 を 画面 に 表示 さ 
せま す 。 暗算 で 結果 が わか る 式 で 、 コ ンピュータ に た し 算 を や っ て も らい まし ょ う 。 

コン ピュ ー タ が 正しく 働い て いる か どう か を 確認 し ます 。 内容 は 、 算 数 の 1+2 を 
計算 (働か せ て ) させ て 、 画 面 に 表示 きせ る こと と し ます 。 


PRINT 1+2 [リタ ー ン 


[SIFT]+[f・$] を 押し て くだ さい 。 Quick BASIC の プロ グラ ム を 入力 し た 画面 が 切り 換 
わっ で て で 、3 が 表示 され た で し ょ う 。 

これ は 、 コ ンピュータ に 「1+2 の 結果 を 画面 に 表示 せよ ] と いう 命令 を 与え 、 そ 
の 命令 に よっ て コン ピュ ー タ が 働き 結果 を 表示 し まし た 。 

この よう に 、 コ ンピュータ に 与え る 命令 は シン プル で 明快 で す 。 こ れ ら の 命令 
組み 合わ せる こと で コン ピュ ー タ が 働く の で す 。 こ の 命令 の こと を 、 ス テー トメ ン 
ト と いい 、 約 150 く らい 用 意 し て あり ます 。 ま た 、 た し 算 の + 記 号 の よう な 演算 子 
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(を えん ざん し ) や サイ ン 、 コ サイ ン な どの 関数 が 、 だ いた い 50 ほ ど あ り ま す 。 こ れ 
ら を 、 一 気 に 全部 覚え る 必要 は あり ませ ん し 、 不 可能 で し ょ う 。 

人 は 、 自 分 の こと を 「 お れ 」| 、「 ぼ ば ぼく | 、「 あ た し 」 、「 わ た くし 」 、「 提 者 
(せっ し ゃ ) 」 な ど と 言い 、 相 手 の 人 を 呼ぶ と き に も 、「 き み ] 、「 あ な た 」 、 
「 お まえ 」 の …… な ど と いう よう に 、 い ろ い ろ な 言い 方 が で きま す が 、 コ ンピュータ 
に は 、PRINT の 一 言 で 、 画 面 に 表示 し た り 、 プ リン タ に 出力 し た り 、 デ ィ ス ク に 書 
き 込 ん だ り し ます 。 そ の た め 、 “どん な "PRINT と いう と ころ で ツイ と まどっ て し 
まい ます 。BASIC の 言語 その も の は 、PRINT 文 と INPUT 文 で お お か た の 用 事 は 間 に 
合い ます 。 だ ・ か ・ ら 、BASIC は 難し く あ り ま せん 。 た だ 、 ほ か の 約束 ご と が や や 
こし い の で す 。 

それ で も 、 書 き 方 、 言い方 に は 、 一 定 の ルー ル が あり ます 。 そ れ を 、 本 書 を 含め 、 
多く の 先輩 が 小さき な プロ グラ ム 例 を 発表 し て いま す の で 、 少 し ずつ 覚え て 自分 の 言 
葉 と し て 身 に つけ て くだ さい 。 

BASIC を 使っ て 、 自 由 に プロ グラ ム を 組め る よう に な る に は 、 早 い 人 で 約 半年 、 
普通 で も 1~3 年 くら い は か か る よう で す 。 気長 に いき まし ょ う 。 


] 変数 と いう 箱 


画面 に 表示 する 命令 は PRINT 文 を 使っ て 結果 を 表示 させ ます 。 例 で は 、1+2 の 結果 
を 一 時 期 、 変 数 と いう 箱 の 中 に し まっ て 、 改 め て 表示 させ る 方 法 を 使い ます 。 こ の 
箱 (変数 ) を 使う と プロ グラ ム の 実行 中 に 、 中 身 を 自由 に 変え ん る こと が で きま す 。 
Quick BASIC に は 、 数 字 を 入れ る 数 値 型 の 箱 と 文字 を 入れ る 文字 列 型 の 箱 が 用 意 さ 
れ て いて 、 ど ちら の 箱 を 使う か 区 別 する 必要 が あり ます 。 こ の 箱 を 区 別 す る こと を 
型 を 宜 言 する と いっ て いま す 。 


〇 箱 (変数 ) の 名 前 の つけ 方 の ルー ル 
1. アル ファ ベッ ト 、 数 字 を 使っ て つけ る 
2 . 最大 は 40 文 字 以内 
3. か な ら ず アル ファ ベッ ト で 始ま る 
4 . 予約 語 は 使え な い 
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〇 数 値 型 変数 名 
HAKO=1+2 
PRINT HAKO 


また 、 変 数 同士 を 式 と し て 使う こと も で きま す 。 
A=2 
B=3 
C=A+B <-----C の 箱 に A の 数 字 と B の 数 字 を た し た 結果 を 入れ ます 。 
D=A*B 
E=C+D 
PRINTC <----- た し 算 の 結果 5 が 画面 に 表示 され ます 。 
PRINTD =<------ か け 算 の 結果 6 が 画面 に 表示 され ます 。 
PRINTE =<------ C と D の た し 算 の 結果 11 が 画面 に 表示 され ます 。 


〇 文字 型 変数 名 
アル ファ ベッ ト や 数 値 を 使っ た 40 文 字 以内 の 変数 名 の 後ろ に $ を つけ て 、 文 字 列 
は 、” (ダブ ルク ォ テ ーション ) で 囲ん で 、 数 値 型 と 区 別 し ま す 。 
A$="Quick" 
B$=" BASIC" 
PRINT A$+B$ <-----Quick BASIC と 画面 表示 され ます 。 


ド S 


キー ボー ド か な の デー タ 人力 


三角 形 の 面積 の 求め 方 は 、 底 辺 X 高 さ た 2 で す 。 適当 に 、 底 辺 の 値 と 高 さ の 値 を 入 
力 す る と 、 三 角形 の 面積 が 画面 に 表示 され る よう に し ます 。 キ ー ボ ー ド か ら の 入力 
の 命令 は 、INPUT で す 。 

INPUT と 画面 表示 の PRINT、 加 減 乗 除 の 演算 子 の 組み 合わ せ で す 。 


1 . REM SPLOOI.BAS 三角 形 の 面積 プロ グラ ム 
2. CLS 
3 . PRINT "人 人 三角形 の 面積 人 人 る" 
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4 . INPUT "底辺 三 "TEIHEN 

5 . INPUT " 高 さ モ TAKASA 

6 . MENSEKI = TEIHEN * TAKASA / 2 

7. PRINT ": 角 形 の 面積 は "MENSEKI: "cm2 で す 。" 
8 . PRINT 

9 . END 


Quick BASIC に は 、 行 番 り が つき ませ ん 。 プ ログ ラム の 内 容 を 説明 する た め に と 
りあ え ず 、 1 ~- 9 の 秋 呈 を つけ まし た 

1 . は 、REM (レム 文 ) と いっ て 、 プ ログ ラム の 注 各 文 を 書き ます 。 こ れ は 、 プ 
ログ ラム の 実行 と は 関係 が な く 、' (シン グル コー ト ) で 書く こと も で きま す 。 

み 。 実 御 画 面 を タリ サ ア し まず 。CLS は 、CLS 0。 CLS 1、CLS 2 と オプ ショ ン を つ 
ける こと が で きま す 。 オ プシ ョ ン の 内 容 は 、 次 の と お り で す 。 


テキ スト 、 グ ラフ ィ ッ ク 画 面 を クリ ア す る 


オプ ショ ン な し と 同じ 
グラ フィ ッ ク 画 面 だ け を クリ ア す る 
テキ スト 画面 だ け を クリ ア す る 





クリ ア し た あと 、 カ ー ソ ル は 、 画 面 の 左端 上 段 (ホー ム ポ ジ シ ョ ン ) に 移動 し ま 
す 。 

3 . タイ トル を 画面 に 表示 し ます 。 日 本 語 入 力 状態 に する の は 、[CTRLI[XFERI] 
キー で す 。 解除 の 場合 も 同じ キー を 使い ます 。 

4~-5. キー ボー ド か ら デ ー タ 入力 を 促し ます 。"" で 囲ま れ た 文字 列 が メッ セー 
ジ で す 。: (セミ コロ ン ) を 忘れ な いよ うに ! 

6 . 三角 形 の 計算 式 で す 。 

7 . 1 行 分 何 も な いも の を 画面 に 表示 きせ ます (結果 と し て 、1 行 空白 が で きる ) 。 

8 . 計算 結果 を 表示 し ます 。 

9. この プロ グラ ム の 終了 を 意味 し ます 。 

ここ で 、 扱 っ た Quick BASIC の 命令 語 を 整理 し て みる と 、 わ ず か に $ つ で す 。 
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REM (ある い は ') 、cCLS、PRINT、TNPUT 、END 


暇 な と き に 、Quick BASIC Statement & Function Reference (リフ ァ レ ンス マニ ュ ア 
ル ) を 見 て 、 内 容 を 再 確認 し て くだ さい 。 

プロ グラ ム の INPUT の あと に ある TEIHEN や TAKASA、MENSEKI が 変数 で す 。 こ 
の 変数 名 は 、 前 述 の ルー ル に 添っ て いれ ば 、TEIHEN で も TEIHENDA で も TEI で も 構 
いま せん 。40 字 以内 で あれ ば 、TEIHENDATEIHENDAOYABUN と 八 っ あん の 「 口 癖 ] 
で も 変数 名 に な り ま す 。 も ちろ ん A や B な どの 1 文字 で も よい の で す が 、 変 数 の 中 身 
を 忘れ て し まこ と が あり ます か ら 、 あ る 一 定 の 長き で 書い た ほう が 、 あ と あと 自分 
の た め に な る で し ょ う 。 


う 見 や すい プロ グラ ム の 書き 方 


Quick BASIC で 、 プ ログ ラム を 書い て いく と き に は 、 大 文字 で 書い て も 小文字 で 
書い て も か まい ませ ん 。 さ ら に 、 す べ て の プロ グラ ム を 改行 し た 左端 か ら 書 く こ と 
も 、 何 ら プ ログ ラム の 実行 に は 影響 し ませ ん 。 今後 、 長 い プ ログ ラム や 複雑 な プロ 
グラ ム を 書く こと を 考え る と 、 見 や すい プロ グラ ム を 書い た ほう が 、 入 力 ミ スキ そ 計 
算式 の ミス を 発見 する の に 便利 だ と 思い ます 。 

プロ グラ ム を 見 や すく する た め に 、 空 白 ヤ タプ を 適当 に 入れ て 、 先 頭 位置 を 右 に 
下げ ます 。 通常 、 字 下げ は 、 キ ー ボ ー ド 上 に ある [TAB] キ ー を 使っ た TAB 間 隔 で 行 
な いま す 。 Quick BASIC で は 、TAB 間 隔 は 、 最 初 は 4 文字 設定 で す が 、[V/ 表 示 ] メ ニ 
ュー の [O/ オ プシ ョ ン ] で 変更 で きま す 。 

それ と 、 プ ログ ラム の 最初 に は 、 か な ら ず 注釈 文 を つけ る よう に 習慣 つけ まし ょ 
う 。 時間 が た つと 、 自 分 で 作っ た プロ グラ ム の 内 容 を 忘れ て し まい ます 。 

最初 の サン プル プロ グラ ム は 、 適 当 に 底辺 と 高 さ の 数 値 を 入力 する と 三角 形 の 面 
積 の 結果 を 表示 する プロ グラ ム で す 。REM 文 の 頭 の SPLOOI1.BAS は 、 プ ログ ラム の 
ファ イル 名 で す 。 
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'SPL001 .BAS 三角 形 の 面積 プロ グラ ム 
CrS 
PRINT " 全 全 全 三 角形 の 面積 人 人 人 " 
TNEUT "底辺 ": TETHEN 
INPUT "高き ": TAKASA 


MENSEKT = TETHEN * TAKASA / 2 
PRINT "三角 形 の 面積 は ": MENSEKT: "cm2 で す 。" 


PRTNT 
END 


4 4 ム 三 角形 の 面積 AA 
? 2g 
? 39 
の 面積 は 399 cm2 で す 。 





の る の の の の ひひ の の の の の の の の の ひらの ひる の の の の の の 9 の (練習 問題 1 *******<eeeeeeee ee eo ee の の 
台形 の 面積 を 求め る 式 を 作っ て み ま し ょ う 。 
台形 の 計算 式 は 、 (上 底 十 下 底 ) * 高 さき プ 2 で す 。 


* TKRSR 


PRINT " 台 
PRINT 
3 





ooo oo oooooeoeoeoo@@ の る の の ゃ と @ る の る の の の の の ぐる の の の の の の の る ぐ の の の の の の の の の の の の の の の の の 
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1. 入門 編 





3.2 入力 o 繰 り 返 し と 分 岐 





: 角 形 の 面積 を 求め る 仕事 を コン ピュ ー タ に や っ て も らい まし た が 、 た っ た 1 回 き 
り で す . 何 回 か 繰り 返し た いけ ど 、 人生 回 、ISHIFTITIf・S1| を 押し て 繰り 返す の 非常 に 
ば か ば か し いと 思い ませ ん か ? PRINT と INPUT だ け で 結果 は 出せ る の で す が 、 も 
っ と 楽 を し た いと いう こと で 、 リ ファ レン スマ ニュ アル を 調べ る と 、 繰 り 返 し の 命 


令 計 が 、4 硬 独 川 門 し て あり ます . 


1 . FOR..….NEXT ある 決め られ た 回 数 を 繰り 返す の に 適し て いま す 。 

2. WHILE..….WEND ある 条件 が 真 で ある 間 、 繰 り 返す の に 適し て い 
ます 。 

3. DO WHILE(UNTIL).….LOOP 最初 の 条件 が 真 ( 偽 ) の 間 、 繰 り 返 
し 実行 し ます 。 

4 . DO.…LOOP WHILE(UNTIL) 繰り 返し 後 の 条 件 が 真 ( 偽 ) に な る 


まで 実行 し ます 。 


また 、 決 め ら れ た 回 数 の 繰り 返し で な いと き に は 、 あ る 一 定 の 条件 が 満た され た 
と き 、 繰 り 返 し の プロ グラ ム か ら 脱 出 を は か る 必要 が あり ます 。 脱出 を 計る こと を 
「 分 岐 ] と いい 、 分 岐 を 行なう た め の 計 算式 を 「 条 件 式 ] と 言い ます 。 こ れ ら は 
BASIC 言 語 で は あり ませ ん 。 コ ンピュータ を 扱う 上 で の 約束 ご と で す 。 

これ ら も 、 ひ と つ 、 ひ と つ 理 届 で 覚え を た の で は た い へ ん で す 。 こ こ で は そん な も 
の も ある と いう 程度 で か まい ませ ん 。 

条件 式 に 使う 演算 子 に は 、 


・ 算術 演算 子 
文字 列 演算 子 
関係 演算 子 
論理 演算 子 


や oO DO 一 


58 


第 3 章 プロ グラ ム の コン パイ ル 
と 、 い う も の が 有川 忘 さ れ て いま す 。 
演算 子 と いう か ら わ か り に くい の か も 知れ ませ ん .. 数 式 の 計算 記 人 な だ と 覚え て い 


て くだ さい 。 


1. は 、 十 (加算 ) 、 (減算 ) 、 (除算 わり 人 算 ) 、 ま (乗算 - か け 條 ) 
。 は 、 十 (連結 ) の み 
は 、 三 (イコール) 、 ぐ (た な り ) 、> ( 小 々 たり) 、 く 、 ろ ーー、 マ ぐう 
。 は 、AND、OR、NOT 


。 て で や 


] 三角形 の 面積 を 10 回 求め る 


すでに 、 繰 り 返 す 回 数 が 決ま っ た プロ グラ ム で す 。 こ こ で は 、10 回 に な っ て いま 
す が 、!=1 TO 10 の 10 の 数 字 を 別 の 数 値 に 変え た て や る と 、 変 えた 数 値 だ け 繰り 返し ま 
す 。 こ の と き 、 数 値 変数 lt の 中 に 1 か ら 順 番 に 数 字 を 入れ て いっ て カウ ント し て いま 
す が 、 変 数 名 は 、 前 述 の 条件 に あっ て お れ ば 、KAI、NO で も 構い ませ ん 。 ち な み に 、 
I は 、FORTRAN の 時 代 の カウ ンタ ー 変 数 の 名 残り で す 。 余計 な こと で す が 、 私 は 
FORTRAN を 知り ませ ん 。 


- OMMO6:d99 











1. 入門 編 


人 4 44 三角 形 の 面積 AA 


革 に 2 199 cm2 で す 。 
44 三 折 形 の 面積 A 人 4 


時 を た 爆 699 cm2 で す 。 
人 4 三角 形 の 面積 


時 業 1599 cm2 で す 。 
4 44 三 角形 の 面積 4 4 


馬 =28 2899 cm2 で す 。 
人 44 三角 形 の 面積 
欠 4 角形 面積 44 





2 真 (し ん ) と 偽 ( ぎ ) 


繰り 返し の 回 数 が 最初 か ら わ か っ て いて 、 な お か つ 固 定 き され て いる と き に 使う 場 
生ま EE に 
は 、FOR…・NEXT は 適し て いま せん 。 

つま り 、「10 回 繰り 返し た ら ヤ ー メ た ! | な ら ば 、FOR...NEXT で 間に合っ て も 、 
「 底 辺 の 値 に 0 を 入れ た ら ヤ ー メ た ! | だ と か 、「 底 辺 と 高き の 値 が 同じ だ っ た ら ヤ 
メー た !」 な ど と 、 あ る 条件 が 整っ た と き に プロ グラ ム の 繰り 返し を や め る 場合 に 

条件 (判断 ) 式 と 演算 子 (を ん ざん し ) を 使っ て 終了 させ る こと に な り ま す 。 

その た め に は 、 真 (・・ の 条件 が 正しかっ た ら ) と 偽 (‥・ の 条件 と 合わ な か っ た 
ら ) と いう こと を 知る 必要 が あり ます 。 

そこ で 、 条 件 (判断 ) 式 と 演算 子 を 使い ます 。 特 に 、 関 係 演算 子 と 論理 演算 子 を 
式 の 中 で 使っ て 、 結 果 を 真 (-1) と 偽 (0) で 判断 し ます 。 

ここ で は 、Quick BASIC の 式 と 演算 子 の 一 覧 を 紹介 し ます 。 
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〇 算術 演算 子 
数 値 デ ー タ を 加工 する た め の 演 算 記 号 で す 。 
算術 演算 子 意味 式 結果 
_- べ キ 乗 3^ 2 9 
ポ 乗算 3*2 6 
除算 8 グ 2 4 
\ 整数 除算 1073 3 (余り の 端数 を 切り 捨て ) 
MOD 剰余 9 MOD 2 1 (余り だ け を 出す ) 
十 加算 2+3 5 
減算 3-2 1 
〇 文字 列 演算 子 
文字 デー タ を 加工 する 演算 記号 で す 。 
算術 演算 子 意味 式 結果 
十 連結 "Quick" 十 " BASIC" Quick BASIC 
〇 関係 演算 子 
同種 の し 式 の 答え を 比較 し て 、 真 (-1) と 偽 (0) で 結果 を 返し ます 。 
算術 演算 子 意味 式 結果 
ニ 等 し い $= (1072) -1 ( 真 ) 
に の ン 等 し く な い 5$ く >(10/2) 0 ( 偽 ) 
く 小 な り $ く 10 訓 
に 同じ か 小 な り 10 く =5 0 
2 大 な り 10>5 -1 
> ニテ 同じ か 大 な り 3>=10 0 
〇 論理 演算 子 


関係 演算 子 の 組み 合え あせ に よる 論理 を 求め 、 真 (-1) と 偽 (0) で 結果 を 返し ま 
す 。 論理 演算 子 に は 、 次 の よう な も の が あり ます 。 

AND 論理 和 

OR 否定 
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1. 入門 編 


NOT 論理 積 

XOR 排他 的 論理 和 
EQV 同値 

IMP 抱合 


Quick BASIC で 使わ れる 演算 子 は これ で すべ て で す 。 こ れ ら を 組み 合わ せる こと 
で 、 判 断 が な され ます 。 
実践 的 な 使い 方 と し て 、"Y" あ る い は "y"、 あ る い は "だ っ た ら の 例 で す 。 


ITF ANS$="Y" OR ANS$="y" OR ANS$=" ン シ " THEN 
PRINT "YES" 

ELSETF ANS$="N" OR ANS$="n" OR ANS$=" ミ " THEN 
PRINT "NO" 

ENDTF 


これ は 、 文 字 変 数 ANS$ に 、 大 文字 、 小 文字 、 カ ナ を 問わ ず 、Y が 入力 され た ら 
「YES] 、 そ う で な く ANS$ に N が 入力 され た ら 「NO] を 画面 に 表示 し ます 。" 
と "ミミ " は 、PC-9801 の キー ボー ド の Y と N を 見 て くだ さい 。 カ ナ 文 字 入 力 の 状態 に 
っ て いて も 、 大 丈夫 な よう に 対応 し た も の で す 。 

関係 演算 子 と 論理 演算 子 を 使っ た プロ グラ ム で す 。 

この 中 に 、IF (も し ) .……THEN (だ っ た ら ) .…ELSEIF (違っ て 、 も し ) と いう 判断 
式 が 多用 され て いま す 。 判断 式 の 終了 は 、END IF で す 。 


'SPL003.BAS 「 人 と 動物 ] 論理 演算 子 
CrS 
PRINT "質問 を 番号 で お 答え くだ さき さい" 
INPOT "性 別 を 教え て くだ さい 男 三 1 女 =2 どちら も 違う =3 ": sex 
INPUT "あな た は 靴 を 履き ます か 履く =1 履か な い =2 ", kutu 


INPUT "あな た は 4 足 で ある きま すか 歩く =1 歩か な い =2 ", aruki 
TEF sex = 1] AND kutu = 1 AND aruki = 2 THEN 


PRTNT 
PRINT "あな た は 、 立 派 な 男性 で す " 
ELSETE sex = 2 AND kutu = 1 AND aruki = 2 THEN 
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PRINT 
PRINT "あな た は 立派 な 女性 で す " 
ELSETF sex = 3 THEN 


PRINT 
PRINT "生物 で は あり ませ ん ね " 
ELSETE sex <> 3 AND kutu = 2 OR aruki = 1 THEN 


PRTNT 
PRINT "お 住ま い は 、 多 摩 動 物 園 の オリ の 中 の 方 ?" 
END IF 
END 





ここ で は 、 靴 を 履い て 2 本 足 で 歩く 男 は 立派 な 男性 
靴 を 履い て 2 本 足 で 歩く 女 は 立派 な 女性 
性 別 の な い の は = 生物 で は な い 
最後 に 、 性 別 の 区 別 が あっ て 、 靴 を 履い て いて も 、 履 いて いな く て も 4 足 で 歩く の 
は 三 動物 ? 
入力 され た 3 つの 条件 を 組み 合わ せ て 、 そ れ ぞ れ ELSEIF で 結果 を 出し て いま す 。 
プロ グラ ム は 上 か ら 順 番 に 実行 さき れる の で 、ELSEIF sex=3 か ら の 3 行 を END IF の 前 
に も っ て くる と 、 性 別 の な い 4 足 で 歩く の も 多摩 動物 園 の 動物 に な っ て し まい ます 。 


う 合計 と 平均 値 を 出す 


数 値 を 好き な だ け 入 力 し て 、-999 を 入力 する と 、 デ ー タ 入力 を 終了 し て 、 件 数 、 
合計 、 平 均 値 を 表示 し ます 。 プ ログ ラム の 繰り 返し は 、「『 入 力 さ れ た 数 値 が -999 で 
な か っ た ら 繰 り 返 せ 】 と いう こと で す 。 


'SPL004 .BAS 合計 と 平均 値 END=-999 
CrS 
PRINT "信金 合計 と 平均 値 ENDp=-999 金 多 多 " 


WHTLE ANS <> -999 *ANS が -999 だ っ た ら 繰 り 返 し 終了 
Sum = Sum + ANS *Sum の 中 に aNS の 値 を 貯え る 
Ni=N+ 1 * 回 数 
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1. 入門 編 


PRINT N: * 回 数 を 画面 表示 
TINPOT "件 目 = ": ANS "数 値 を 入力 
繰り 返す 


WEND 
PRTNT 
PRINT "回 数 = ": N - 1 
PRINT "合計 ": Sum 
PRTINT "平均 三 ": Sum / (N - 1) 


や や や や や や や つや つつ や 


平 
1 
2 
3 
4 
5 
6 
7 
8 
9 


l 
8 





の 衣 ら 


何 か キ ー を 押し て くだ さい 





4 ト 最大 値 、 最 小 値 を 求め る 式 の 追加 


合計 と 平均 値 の プロ グラ ム に 、 判 断 式 IF..…THEN を 追加 し て や る こと で 、 最 大 
値 、 最 小 値 も 同時 に 計算 で きま す 。 こ の と き 、 プ ログ ラム の 終了 用 に -999 を 使っ て 
いま す の で 、 最 小 値 を 求め る と き に は 、-999 を 最小 値 と し な いよ うに 注意 する 必要 
が あり ます 。 

この プロ グラ ム を 見 て わか る よう に 、 前 述 の 合計 と 平均 の プロ グラ ム を 拡張 きせ 
た も の で す 。 ま ず 、 核 と な る プロ グラ ム を 作っ て 、 徐 々 に 拡張 し て いき 、 や が て 最 
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終 目 的 の プロ グラ ム に 仕上 げ る 方 法 が 初心 者 に と っ て は と っ つき や すい で し ょ う 。 


rsPL005.BAS 合計 と 平均 値 と 最大 ・ 最 小 値 END=-999 
CLS 
max = -9999 


min = 99999 
PRINT " 急 多 合計 と 平均 値 と 最大 ・ 最 小 値 ENp=-999 多 金 多 " 
WHILE ans <> -999 'ANS が -999 で な か っ た ら 繰 り 返 し 終了 
Sum = Sum + ans *Sum の 中 に ANs の 値 を 貯え る 


N =N+ 1 回 数 
PRINT N: "回 数 を 画面 表示 
INPUT "件 目 = ": ans "数値 を 入力 
TE max < anS THEN max = anS 
TF min > ans AND ans <> -999 THEN min = ans "ans の 値 が nin より も 小さく て 、 
' な お か つ -999 で な か っ た ら min の 中 に ans の 値 を 代 人 する 
繰り 返す 


"回 数 = ":N-1 

"合計 = ": Sum 

"平均 = ": Som / N-1) 
"最大 値 = ": max 
"最小 値 = ": min 


平均 値 と 最大 ・ 最 小 値 END=-999$@$ ぐ を 


や で や や や や や や つつ 
の の ココ の の ょ の ーー 
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1. 入門 編 





3.3 V4.5 て go 実行 用 ファ イル の 作成 





いま まで 、 実 行 し て きた プロ グラ ム は 、 イ ンタ プリ タ と いっ て 、 プ ログ ラム が 書 
か れ て いる 順番 に 実行 させ て きま し た 。 そ の 結果 、 実 行 に お いて ミス が な いこ と が 
わか り 、 プ ログ ラム ファ イル と し て 保存 し て あり ます 。 こ の ファ イル の こと を ソー 
スプ ログ ラム 、 あ る い は ソー スリ スト と いっ て 、 実 行 用 の プロ グラ ム と 区 別して 呼 
ん で いま す 。 これ ま で 、MS-DOS の 実行 ファ イル に し な か っ た の は 、 プ ログ ラム が 
小さ く コ ン パ イル する メリ ッ ト が な か っ た か ら で す 。 

それ で は 、 コ ン パ イル の 練習 と し て 、「 合 計 と 平均 値 と 最大 ・ 最 小 値 ]| の プロ グ 
ラム を Quick BASIC V4.5 で コン パイ ル し ます 。 


1] ソー スプ ログ ラム の 読み 込み 


すでに 、 保 存 し て ある ソー スリ スト を Quick BASIC に 読み 込み ます 。 
1 . Quick BASIC を 起動 し て 、[GRPH] キ ー を 押し ます 。 
2. カー ソル が メイ ン メ ニュ ー バ ー に ビ 移 動 し た こと を 確認 し ます 。 
3 . [F/ フ ァイル ] メ ニュ ー か ら プ ル ダ ウ ン メ ニュ ー を 開き ます 。 
4. [!] キー で [O/ 読 込 .…] を 選択 し て 、[ リ ター ン ] キ ー を 押す か 、 項 
目 の 頭 文字 IO] キー を 押し ます (次 ペー ジ 上 図 ) 。 
5 . 画面 が 切り 換わり 、 フ ァイル 名 の 入力 を 聞い て きま す 。 
6. ドラ イブ が A:\ に な っ て いる と き は 、 フ ァイル 名 の と ころ に 、 い き 
な り B: [リタ ー ン ] と 入力 し ます 。 
7. ドラ イブ の 指定 が B:\ に 変わ り 、 拡 張子 が BAS の ファ イル が 表示 さ 


れ ま す 。 

8 . [TAB] キ ー を 押し て 、 フ ァイル 一 覧 の ウイ ンド ウ に カー ソル を 移動 
させ ます 。 

9. カー ソル 移動 キー で カー ソル を 移動 きせ 、 目 的 の ソー ス フ ァ イル 
名 を 反転 させ ます 。 
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10. [リタ ー ン ] キー で 、 プ ログ ラム が 読み 込ま れ ま す (下図 ) 


CZWUNOWI MD 
ト 時 間 の 表示 “9g:9g: 


| 
| I が 1 万 回 繰り 返す の を 
り ロジ た る まっ) 


PRINT TIIE$ 時間 の 朱 示 


馬 LIFEI. 
| PLO91. 
FL802 











Mg1:OM1 
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1. 入門 編 

て 読 し だ あ ま ae 
ER MS-DOS の テキ スト ファ イル で 保存 が で きる ワ 
市 販 の も ー プ ロ ソ フト で あれ ば 、Quick BASIC の ソー スリ 
Lu. た だ の い スト を 作る こと が で きま す 。 

作れ る 


一 太郎 で プロ グラ ム を 入力 し て 、 拡 張子 に .BAS 
を つけ て 、 保 存する だ け で OK で す 。 プ ログ ラム を 入力 する と き に 、 プ ログ ラム の リ 


ファ レン ス の 間 の 空白 が 全角 に な ら な いよ うに 注意 し ます 。 ア ルフ ァ ベ ッ ト を 含め 、 
全角 で 入力 され る と エラ ー に な り ま す 。 

Mifes は 、 こ の よう な ソー スプ ログ ラム を 入力 する た め に 作ら れ た も の で 、 ワ ー プ 
ロ ソ フト と 区 別 す る た め に 、 エ ディ タ と 呼ん で いま す 。 


グ 実行 用 ファ イル を 作る 


実行 用 ファ イル を 作り ます 。 今 まで は 、[SIFT] 十 [f・?] で プロ グラ ム が 実行 され ま 
し た が 、 こ れ は 、Quick BASIC を 起動 し て いる と き に し か 実行 で きま せん で し た 。 
し か し 、 実 行 用 ファ イル を 作れ ば 、Quick BASIC の シス テム を 毎回 起動 きせ る 必要 
が な く な り 、MS-DOS が 起動 し た 状態 で プロ グラ ム の 実行 が で きま す 。 

この 実行 ファ イル を 作る こと を コン パイ ル と いい ます 。 


1 . [GRPH] キ ー で メイ ン メ ニュ ー バ ー へ カー ソル を 移動 きせ ます 。 
2 . [R/ 実 行 ] メ ニュ ー を 選択 し ます 。 


3. プル ダウ ン メ ニュ ー を ひら き 、[X/EXE フ ァイル 作成 .…] を 選択 し ま 
す 。 
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9999 
PRINT " 多 多 合計 と 平均 値 
MHILE ans <> -999 
Sum = Sum + anS 


in = ans "ans の 値 が nin よ り も 小さ く て 
な か っ た ら min の 中 に ans の 値 を 代入 する 


: Sum / (N- 1) 


ダイ 2 ト モト “ 


PRINT 
UHILE ans 
SL 


N 
lx 

I 

IF max 3 
IF min 


MEND 
34 
3 
PRINT 還 語 
PRINT " 





F1=^ ル プ FETURN= 





。 次 の よう な メッ セー ジ が 出 て 、 コ ン パ イル が 終了 (EXE フ ァイル 
UN し ま も た 。 
メッ セー ジ の 中 の エラ ー が 0 に な っ て いる こと に 注意 し て くだ さい 。 
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1. 入門 編 


Run File [SPLg95.EXE]: R:\QB45\SUIM1 .EE 
List File 【[NJL.MP] : 
Libraries [.LIB]: R:*QB45#LIBECO45R.LIB 


BC D:\ITI93\SPL995.BRSZDZ0/TC:512: 

Microsoft (R) QuickBaSIC Compiler Uersion 4.59J 
(C) Copuright Microsoft Corporation 1982-1989. 
Il rights reserved. 


43244 Butes nvailable 
42969 Butes Free 


9 Marning Error(S) 
g Severe Error(S) 
LINK QBLNK. TTP 


Microsoft (R) Overlay Linker Uersion 3.69 
Copuright (C) Microsoft Corp 1983-1988. RI1 rights reserved. 


Object Modules [.0BJ]: /EX SPL995 

Run File [SPL995.EXE]: R:*QB45\SUNd1.EXE 
List File [NJL.MaP] : 

Libraries 〔.LIB]: R:\QB45\LIB*BCON45R.LIB 





ざこ 
| 
に | 
em 
ご 
お 
析 
コ 


Quick BASIC を 終了 させ て 、MS-DOS の 状態 に し て か ら フ ァイル を 実行 きせ ます 。 

EXE フ ァイル の 実行 状態 が わか りや すい よう に 、 新 し く フ ォ ー マ ッ ト し た ディ ス 
ク に SUMOI.EXE を コピ ー し て 、 デ ィ ス ク の 内 容 を 確認 後 、SUMO1 [リタ ー ン ] で 実 
答 し まし た 。 





第 3 章 プロ グラ ム の コン パイ ル 


ーー , ユミ と ビク 


画面 が 切り 換わり 、 合 計 と 平均 値 と 最大 ・ 最 小 の プロ グラ ム が 実行 され まし た 。 
適当 に 、 デ ー タ を 泊 M 人 CN おま AO 
A> が 表示 され て 、MS-DOS の 状態 に な っ て いる こと が # ) ます 。 


直 と 最大 ・ 最 小 値 END=-999$$ を る 


の の ーー 人 
SNS さて 


- コ の nm た 


9 
1 


| Ci lu ln 上 l | 0 関 較 い DI MI MEEr W - 





3.4 V4.2 で 独立 型 実行 用 ファ イル の 作成 





Quick BASIC V4.2 で は 、 ラ ンタ イム 分 離 型 実 行 フ ァイル と 独立 型 実 行 フ ァイル の 2 
種類 の EXE フ ァイル を 作る こと が で きる よう に な っ て いま す 。 こ こ で は 、 独 立 型 実 
行 フ ァイル を 作る こと に し ます 。 こ の ファ イル が 完成 する と 、MS-DOS の 起動 画面 
か ら フ ァイル 名 を 入力 する だ け で 、「 合 計 と 平均 値 と 最大 ・ 最 小 値 | の プロ グラ ム 

スタ ー ト させ る こと が で きま す 。 それ で は 、V43 と 同じ よう に 「 合 計 と 平均 値 と 
3 沈 が P 
前 を 、 独 立 型 は SUM02.EXE、 分 離 型 は SUM03.EXE と し ます 。 








1 . 入門 編 
1 ソー スプ ログ ラム の 読み 込み 


すでに 、 保 存 し て ある ソー スリ スト を Quick BASIC に 読み 込み ます 。 こ の 間 の 操 
作 は 、V4.$ と 同じ で す 。 
1 . Quick BASIC を 起動 し て 、[GRPH] キ ー を 押し ます 。 
2. カー ソル が メイ ン メ ニュ ー バ ー に 移動 し た こと を 確認 し ます 。 
3 . [F/ フ ァイル ] メ ニュ ー か ら プ ル ダ ウ ン メ ニュ ー を 開き ます 。 
4 . [!] キー で [O/ 読 込 .…] を 選択 し て 、[ リ ター ン ] キ ー を 押す か 、 項 
目 の 頭 文字 [O] キ ー を 押し ます 。 
5 . 画面 が 切り 換わり 、 フ ァイル 名 の 入力 を 聞い て きま す 。 
6. ドラ イプ が Ai\ に な っ て いる と き は 、 フ ァイル 名 の と ころ に 、 い き 
破り 9 ターン] と 大 し ます 。 
7. ドラ イブ の 指定 が B:\ に 変わ り 、 拡 張子 が BAS の ファ イル が 表示 さ 


禄 まず ぁ 
8 . [TAB] キ ー を 押し て 、 フ ァイル 一 覧 の ウィ ンド ウ に カー ソル を 移動 
させ ます 。 
9. カー ソル 移動 キー で カー ソル を 移動 させ 、 目 的 の ソー ス フ ァ イル 
名 を 反転 させ ます 。 


10.[ リ ター ン ] キ ー で 、 プ ログ ラム が 読み 込ま れ ま す 。 


と 


作 独立 型 実行 用 ファ イル を 作る 


トド S 


1 . [GRPH] キ ー で メイ ン メ ニュ ー バ ー へ カー ソル を 移動 きせ ます 。 

2 . [R/ 実 行 ] メ ニュ ー を 選択 し ます 。 

3. プル ダウ ン メ ニュ ー を ひら き 、[X/EXE フ ァイル 作成 .…] を 選択 し ま 
す 。 
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Mg1:M1 





4 . EXE フ ァイル 名 を 「SUM02] と つけ ます 。 
5 . 作成 形式 に 2 種類 ある の で 、[TAB] キ ー を 使っ て 独立 型 EXE フ ァ イ 
ル を 選択 し ます 。 


MM1: MI1 
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1. 入門 編 


6. 自動 的 に コン パイ ル さ れ ま す 。 
メッ セー ジ の 中 の エラ ー が 0 に な っ て いる こと に 注意 し て くだ さい 。 


BC D:\IT-B9g2\SPLg95 . BRS/0/T/C: 512: 

Hicrosoft (R) QuickBRSIC KNJI Compiler Uersion 4.2g 
(C) Copuright Iicrosoft Corporation 1982-1988. 

Il rights reserved. 


43511 Butes Rvailable 
42299 Butes Free 


g Marning Error(S) 
9 Severe Error(S) 
LINK /EX SPLg95,R: BRSIC42\SUN22.EXE,NUL, : 


Microsoft (R) Overlau Linker Uersion 3.65 
Copuright (C) Microsoft Corp 1983-1988. RIll rights reserved. 





3.5 V4.2 ラ ンタ イム 分 離 型 実行 用 ファ イル の 作成 





ラン タイ ム モ ジュ ー ル を 分 離し た ラン タイ ム 分 離 型 実 行 用 ファ イル の 作成 を 行 な 
いま す 。 コ ン パ イル し た EXE フ ァイル を 実行 さき せる た め に は 、 ラ ンタ イム モジ ュー 
ル BRUN42A.EXE を 同一 ディ スク 内 に コピ ー し て や る 必要 が あり ます 。 


1 ソー スプ ログ ラム の 読み 込み 


ここ まで の 操作 は 、V4.5 あ る い は 、V4.2 の 独立 型 実 行 用 ファ イル の 作成 と 同じ で 
紀 ね 


の ランタイム 分 離 型 EXE フ ァイル を 作る 


1 . [GRPH] キ ー で メイ ン メ ニュ ー バ ー へ カー ソル を 移動 させ ます 。 
2 . [R/ 実 行 ] メ ニュ ー を 選択 し ます 。 

3. プル ダウ ン メ ニュ ー を ひら き 、[X/EXE フ ァイル 作成 .…] を 選択 し ま 
すっ 


第 3 章 プロ グラ ム の コン パイ ル 


4 . EXE フ ァイル 名 を 「SUM03] と つけ ます 。 
5. 作成 形式 に 2 種類 ある の で 、 分 離 型 EKE フ ァイル を 選択 し ます 。 





| 
| 」 
凍 


UEND 








6. 自動 的 に コン パイ ル さ れ ま す 。 
メッ セー ジ の 中 の エラ ー が 0 に な っ て いる こと に 注意 し て くだ さい 。 


BC D:\IT-B992\SPL995.BRSZTC:512: 

Microsoft (R) QuickBRSIC KRNJI Compiler Uersion 4.29 
(C) Copuright Microsoft Corporation 1982-1988. 

RI1 rights reserved. 


43511 Butes Rvailable 
42299 Butes Free 


g Marning Error (3) 
g Severe Error(S) 
LINK EX SPL95,R:\QBRS1C42\SUI93.EXE,NUL, : 


Microsoft (R) Overlay Linker Uersion 3.65 
Copuright (C) Microsoft Corp 1983-1988. ll rights reserved. 
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1. 入門 編 


う 分 離 型 EXE フ ァイル の 実行 


Quick BASIC を 終了 させ 、MS-DOS の 状態 か ら フ ァイル を 実行 きせ ます 。 
ディ スク に SUMO3.EXE を コピ ー し て 、 デ ィ ス ク の 内 容 を 確認 後 、SUM03 [リタ ー 
ン ] で 実行 し ます 。 


R:\>SU93 
Input rur-time module path: 
Input run-time module 


path: 
Input run-time module path: B:INfBRUN24R 





画面 に 、” Input run-time mdule path: " と メッ セー ジ が 表示 され て 、 実 行 が 中 断 
し て いま す 。 こ れ は 、「 ラ ンタ イム モジ ュー ル の ある パス を 入力 し て くだ さい | と 
いっ て いま す 。 無視 し て [リターン ] キー を 入力 する と 、 同 じ メ ッ セ ー ジ が 繰り 返 
され 、 プ ログ ラム は 実行 きれ ませ ん 。 

ドラ イプ ブ B に Quick BASIC の ワー ク デ ィ ス ク を 入れ て 、B:\BIN\BRUN42A [リタ ー 
ン ] と 入力 すれ ば 、 プ ログ ラム は 実行 され ます が 、 こ れ で は 、Quick BASIC が 必要 
に な り 、 手 間 の か か る こと は 、[SIFT] 十 [f・S] を 実行 し た と き と 同じ で すね 。 

これ で は 、 ツ マラ ナイ の で 、1 枚 の ディ スク で 実行 で きる よう に し まし ょ う 。 

ドラ イブ A に 実行 用 ファ イル 、 ド ライ プ ブ B に Quick BASIC の ワー ク デ ィ ス ク が 入っ 
て いる も の と し て 、 次 の よう に 入力 し ます 。 


COPY B:\BTN\BRUN42A.EXE A: [| リターン ] 


ドラ イブ A に BRUN42A.EXE と いう ラン タ イム モジ ュー ル が コピ ー さ れ て いる こと 
を 確認 し て 、 あ ら た め て 、 


SUM03 [| リターン] 


と 力も を ます 。 
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これ で 、 合 計 と 平均 値 と 最大 ・ 最 小 の プロ グラ ム が 実行 きれ ます 。 
4 信 実行 ファ イル の 大 き さ 


SUM03.EXE は 、 ラ ンタ イム モジ ュー ル を 必要 と する EXE フ ァイル 、SUMOI.EXE 
は 、V4.5 で コン パイ ル し た 独立 型 EKXE フ ァイル 、SUMO2.EXE は 、V4.2 の 独立 型 の 
EXE フ ァイル で す 。 同じ プロ グラ ム で も 大 き さ が 約 10 倍 の 値 が ちがい ます 。 

この 大 き さ は 、SUMOI.EXE、SUM02.EXE は 、BRUN42A.EXE (ラン タイ ム モ ジュ 
ー ル ) が 取り 込ま れ 、SUM03.EXE は 、 ラ ンタ イム モジ ュー ル が 、 分 離し た か た ちの 


実行 ファ イル だ と 思っ て くだ さい 。 
SUMO1.EXE、SUM02.EXE は 、 こ の ファ イル だ け で プロ グラ ム の 実行 が で きま す 。 





る 実行 ファ イル の 大 き さ 


77 








1. 入門 編 


マヤ SUM02 の 実行 画面 


\ 計 


い 
[ 有 


rrmTmnnrnrmrmrmrmm 
IIHMIIMIHI 


+ 
町 
I 


V4 や で 


平均 値 と 最大 ・ 最 小 値 END=-999$$ 
1 


RE 2 


の で 中 て 


ココ 


FR、 


オキ サー サー ロー キー キキ 


ー で 
に 」 


]| 


| C| CU (Oo 上 | :U 関 題 ODM IN WEEP 上 < | 





3.6 プロ グラ ム Z の 実行 速度 





Quick BASIC で は 、3 種 類 の プロ グラ ム の 実行 方 法 が あり ます 。 実際 に 、 プ ログ ラ 
ム を 作っ て 実行 きせ る と き の は 、 ど の 方 法 が いい の か 調べ て みる こと に し ます 。 


1 実行 速度 チェ ッ ク プ ログ ラム 
念 実行 速度 チェ ッ ク 用 「 計 算式 ] プロ グラ ム 


コン ピュ ー タ 本 来 の 「 計 算 ] を 中 心 に し た プロ グラ ム で す 。 便宜上 、「 計 算式 」 
プロ グラ ム と 呼ぶ こと に し ます 。 


第 3 章 プロ グラ ム の コン パイ ル 


!SPL006.BAS KEISAN 
GOESUNSGY EN92 
TITME$ = "00:00:00" タイ マー セッ ト 
PRTNT TIME$ スタ ー ト 時 間 の 表示 ”" 00:00:00" 
FOR CL = 1 TO 20 
FOR 1 = 1 TO 10000 !<---- | エ を 1 万 回 | エ が 1 万 回 繰り 返す の を 
| 繰り 返す | 20 回 繰り 返さ せる 


PRTNT 画面 上 で 1 行 改行 


PRTNT TIME$ 実行 終了 時 間 の 表示 


gg:g9:99 


HI 


何 か キ ー を 押し て 
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1 . 入門 編 
グ 実行 速度 チェ ッ ク 用 「 表 示 形 ] プロ グラ ム 


コン ピュ ー タ の 計算 は 頭脳 の 中 で の 実行 。 そ れ を 人 間 に た と える な ら ば 、 脳 の 指 
令 を 受け て 、 実 際 に 手足 を 動か す も の に 近い 動作 を させ る た め 、 画 面 に " o" を 表示 
きせ て いき ます 。 こ の プロ グラ ム は 、「 表 示 形 ] と 呼ぶ こと に し ます 。 


!SPL007.BAS HYOJr 
CES :.Y = 2 

TIME$ = "00:00:00" 

PRTNT TIME$ 

FOR CL = 1 TO 20 

FOR 1 = 1 TO 10000 
TE 1T MOD 125 = 0 THEN PRINT "o": !< ェ の 値 が 125 で 割り 切れ た ら "o" を 

* 例示 じ ま あ 6 

NEXT 

NEXT 


PRTNT 
PRINT TITME$ 


OOOOOOOOOOOOOOOOOOOOOOOOOOOCO 
2OOOOOOOOOOOOOOOOOOOOOOOOOOO 

OoOOOOOOOOOOOOOOOOOooOoooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 
OOOOOOOOOOOOOOOOOOOOOOOOOOoOOooooooooooooooooooooooooooooooooooooooooooooooooooo 
OOOOOOOOOOOOOOOOOOOOOOOOOooooooooooooooooooooooooooooooooooo 9 0.9.9.9/9.6」9.9.9.9.9.9 
OOOOOOOOOOOOOOOOOOOOooooOoOooooooooooooooooooooooooooooooo OOOOOOOOOOOOOOx 
OOOOOOOOOOOOOOOOOOOoooooooooooooooooooooooooo し 699.99.9.9.9.9) 
OOOO0OOOOOOOOOoOOooooooooooooooooooooooooooooooooooooooooooc 2OOOOOOOOOOOOO 
OOOOOOOOOOOOOOOOOOOOOoOOOOOoOooooooooooooooooooooooooooooox OOOOOOOOOOOOOO 
OOOOOOOOOOOOOOOOOOOOOOOOOOOOoOOoooooooooooooooooooooooooooo 
OOOOOOOOOOOOOOOOOOOOOOOOOOOOoooooooooooooooooooo 
OOOOOOOOOOOOOOOOOOOOOOOOOOOOOoooooooooooooo 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo yooooooooooo 
HCS) 
何 か キ ー を 押し て くだ さい 
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C ウ 


実行 結果 


実行 速度 を 計る こと は 、 い ろ い ろ な 条件 で 変わ っ て きま す 。 た と えば 、 使 っ て い 
る 機種 が 変わ れ ば 違っ て きま すし 、 プ ログ ラム の 組み 方 に よっ て も 変わ っ て きま す 。 
当然 、PC-9801 も いろ いろ な 機種 が あり ます の で 、 個 々 の 機種 に よっ て 、 実 行 速度 が 
変わ る で し ょ う 。 こ の 結果 は 、PC-9801Vm2 で クロ ッ ク を 10MHz に セッ ト し 、 前 述 
の プロ グラ ム を Quick BASICV4.2 で 実行 と いう 条件 の 元 で 算出 され た も の で す 。 


イン タプ リタ ラン タイ ム 型 独立 夫 
計算 式 Il 分 30 秒 37 秒 ( 33 秒 ) 37 秒 ( 33 秒 ) 
表示 形 2 分 55 秒 1 分 48 秒 (1 分 7 秒 ) 1 分 47 秒 (1 分 8 秒 ) 

差 分 22 秒 Si 秒 ( 31 秒 ) 30 秒 ( 32 秒 ) 


( ) 内 の タイ ム は イン タプ リタ と 比べ た と き の 差 で す 


論 と し て 、EXE の 実行 ファ イル は イン タプ リタ の 実行 速度 の 約 1.6 倍 。 ほ か の 機 
種 で あれ ば 、 も っ と 差 が で る の か どう か は わか り ま せん が 、 と に か く 速 く な っ て い 
る こと は わか り ま す 。 

また 、 パ ソコ ン 内 部 の 計算 式 よ り も 画面 に 表示 させ る と いう こと に 、 以 外 と 時 間 
が か か っ て いる こと が わか り ま す 。 これから 、 自 分 な り の プロ グラ ム を 組む と き 、 
不 必要 な 画面 家 示 を 避け る こと で 、 速 い プ ログ ラム を 組む こと が で きる ヒン ト に は 
な り 淫 す 。 

ラン タイ ム モ ジュ ー ル を 使う EXE フ ァイル で も 独立 型 で も 差 の な いこ と が わか り 
ます 。 

な お 、 こ の プロ グラ ム は 、 パ ソコ ン の 内 部 時 計 を 使っ て いま す の で 、 内 部 時 計 が 
メタ メタ に 狂っ て し まい ます 。MS-DOS の 起動 時 に ちゃ ん と セッ ト し な お し て お い 
で る) 欄 答 Wo 
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1 . 入門 編 
4 ト 物理 の 公式 を 使う = 物体 の 落下 速度 = 


ある 高 さ か ら 物 が 落下 し た と き の 時 間 を 秒 単位 で 計算 し ます 。 公式 に よる と 、 


] 

等 加速 度 直 線 運 動 の 公式 S=Vo+ 一 gc 
0 

1 

自由 落下 で すか ら 初速 度 Vy=0 で すか ら 、S= 





gC 
0 


この こと か ら 、 時 間 T は 、T=SQR(2*S/G) で 求め られ ます 。 
この プロ グラ ム を [SIFT] 十 [f・3] で 実行 後 、 コ ン パ イル を し て み ま し ょ う 。 
S: 沙 下 距 離 (m) VO: 初 速度 (m/ 秒 ) 時 間 ( 秒 ) g: 加 速度 (9.8m/ 秒 2) 


*SPL008 .BAS 

CrS 

G = 9.8 

Do 

TINPUT "高き m(END=-1) 三 ",S 
TF S = -1 THEN END 


部 iM 寺 35ORA2N IS /)G) 
PRINT T: " 秒 " 
PRINT 





富士 山 の 高き は 、3.776m。 東 京 タ 
ワー は 333m。 風 の 抵抗 が な いも の 二 人 ER け 、 
と し て 、 そ れ ぞ れ か ら パ ラ シ ュ ー ト 
を つけ な いで 飛び 降り る と 、 富 士 山 
で は 、27.8 秒 、 東 京 タ ワー か ら だ と 高き m(END=-1) 
8.2 秒 と いう こと に な り ま す 。 な ん 
だ か 、 物 理学 が 身近 な も の に な っ た 
と 思い ませ ん か 。 


高 さ m(END=-1) ニ 333 
8.243736 秒 
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第 3 章 プロ グラ ム の コン パイ ル 


T = SGR(2・S ン 6) 
PRINT Ti " 秒 " 
3 











〔 MOO5:OM2 





4V4.2 の 実行 用 ファ イル 作成 メニ ュー 


DO 
INPUT "高き m(END=-1) デ ",S 
IF S = -1 THEN END 
T = SQR(02*S ン /6) 
PRINT T: " 秒 " 
PRINT 


ダイ 2 ト モト 


99991 : 1 





AV4.5 の 実行 用 ファ イル 作成 メニ ュー 
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1. 入門 編 


eo oe @ ee eo oe ee の の eo の の の の の の eo@ の の oe ぐ 練 習 問題 2 > の の ひので の の で の の の の ひので の ひら の の の の の の の の @ 


ボー ル の 投げ 上げ 
初速 度 V0(m/ 秒 ) で 投げ 上 げ る と ボー ル は 、 ど こま で 高く 上 が る で し ょ う 。 
そし て 、 そ れ は 何 秒 後 で し ょ う 。 初 速度 を 入力 し て 、 結 果 を 出し て くだ さい 。 
高き h の 式 は 、h=HA2/(2*9.8) 
時 間 T の 式 は 、T=V0/9.8 
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第 4 章 画面 表示 の 体裁 を 整え る 


第 4 章 画面 表示 の 体裁 を 整え る 





作れ か を る 当 ロ ジ ンジ g あ マ 





Quick BASIC の プロ グラ ム の 原点 は 、 キ ー ボ ー ド か ら の 入力 (INPUT) と 画面 へ 
の 表示 (PRINT) で す 。INPUT で あれ 、PRINT で あれ 、 現 在 の 状況 が わか りや すい 
よう だ に 、"" ( ダ プ ルク ォ ー テ ショ ン ) を 使っ て メッ モ セージ を つけ ます 。 そ し て 、 そ 
の あと に 、 変 数 名 を つけ ます 。 そ れ に よっ て 、 キ ー ボ ー ド か ら の 入力 の 場合 は 、 変 
数 名 の 中 に 何ら か の デー タ が 取り 込ま れ 、 画 面 表示 の 場合 は 、 変 数 の 中 の デー タ が 
画面 に 表示 きれ ます 。 こ の 入力 の 状態 や 表示 の 状態 を 「、( カ ンマ ) 」 と 「: (セミ コ 
避 | 下 変 た える こと が で きま す 。 


1] PRINT の カン マ と セミ コロ ン 


まず 、 カ ンマ も セミ コロ ン も つい て いな い プ リン ト 文 を 作り 、Quick BASIC の 編 
集 メ ニュ ー か ら コ ビー 命令 を 使い ます 。 
1 . 作っ た プロ グラ ム を [SIFT] 十 [ 1] キー を 使っ て コピ ー 男 囲 を 決め ま 
す 。 指定 され た 男 囲 は 、 反 転 し ます 。 








1. 入門 編 


F フ ァイル Ez 編集 夫 示 5S ン 反 氷 R 


夫 行 
Untitlcd 軸 還 





2 . [GRPH] キ ー を 押し て 、 メ イン メニ ュー バー へ カー ソル を 移動 し ま 
ま 。、。 

3 . [E/ 編 集 ] を 選択 し て 、 プ ル ダ ウ ン メ ニュ ー を 開き 、[C/ コ ピー] を 選 
択 し ます 。 

[CTRL] 十 [INS] キ ー を 使う こと も で きま す 。 














4 [リターン] キー を 押し た あと 、 コ ピー 先 に カー ソル を 移動 させ ます 。 
5. [GRPH] キ ー を 押し て 、 再 び 、 メ イン メニ ュー バー に カー ソル を 移 
動き せま す 。 

6 . [E/ 編 集 ] を 選択 し て 、 プ ル ダ ウ ン メ ニュ ー を ひら きま す 。 

7 . [P/ ペ ー ス ト ] を 選択 し て 、[ リ ター ン ] キ ー を 押す と 、 範 囲 指定 し た 
プロ グラ ム が コピ ー さ れ ま す 。 
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第 4 章 画面 表示 の 体裁 を 整え る 


生 DJ ッ 2 





9 . 次 の コピ ー 先 に カー ソル を 移動 させ ます 。 

10. ペー スト の ショ ー ト カッ トキ ー、[SIFT] 十 [INS] を 押す と コピ ー き さき 
れ ま す 。 ペ ー ス ト は 、 次 の コピ ー や カッ ト の 指示 を 行なう まで 何 度 
で も 使う こと が で きま す 。 

11. コピ ー が 終了 し た ら 、 画 面 の よう に 、 そ れ ぞ れ の プロ グラ ム の 人 後 
に カシ マ と や も ミコ ヨ ロン を つけ まず 。 


IPRINT じ 。 
PRINT Ri 
PRINT Bi 
PRINT C: 


| 
| 
| 


914:999 





さっ そく 、[SIFT] 填 [f・5] で 実行 し て み ま し ょ う 。 
変数 へ 、B、C の 後ろ に 何 も ち つ け て いな いと 1 行 ず つ 改 行き れ て 表示 され ます 。 
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1. 入門 編 


123 
456 
789 


次 の 表示 は 、, (カン マ ) を つけ た 例 で す 。 画面 1 行 に 8 文字 間隔 で 表示 され て いま 
す 。 


最後 は 、1 行 に 文章 が つなが っ て いま す 。: (セミ コロ ン ) を 使う と 、 プ ログ ラム 
が 改行 に な っ て いて も 、 ち ゃ ん と 1 行 で 画面 に 表示 し ます 。 


123 456 789 


グ INPUT の カン マ と セミ コロ ン 


名 前 を キー ボー ド か ら 入 力 す る プロ グラ ム で す 。 プ ログ ラム の コピ ー は 、 
1 . [SIFT] 十 [ !] で 男 囲 指定 
2 . [CTRL] 填 [INS] で コピ ー 
3. コピ ー 先 へ カー ソル の 移動 
4 . [SHIFT] 十 [INS] で ペー スト 
で し た 。 次 の プロ グラ ム は 、INPUT と PRINT を 使っ た 例 で す 。 文字 を 入力 し ます の 
で 、 変 数 名 の 後ろ に $ を つけ ます 。 


第 4 章 画面 表示 の 体裁 を 整え る 


* INKORON.BRS 
NN) 


INPUT "1. 名 前 を 入力 【 
INPUT "2' 台 前 を 入 : 
PRINT 
PRINT " た 気 条 示 ) デ ", NaE1$ 
PRINT "1 の 2 は (も ミ 7 H 敵 い * コト) 


PRINT " 名 旬 有り \。 "。 NRIE2$ 
di| (t ミ ロ : ホリ 7: NRE2$ 





プロ グラ ム を 実行 し ます 。[SHIFTI+[f・5] で し た 。 
INPUT 文 に も ミコ ロン を つけ る と 、? が 表示 され ます 。 


本 ま ん いち 


示 遠 栗 謙一 


喜 謙一 
9 カンマ と セミ コロ ン を 組み 合わ せ て 表示 


.、 え ん と うけ ん いち 
えん どう けん いち 





誕生 日 を 聞い て いま す 。 月 を 聞い て きた と き に は 、? マ ー ク が ある こと に 注意 し て 
くだ さい 。 ま た 、 表 示 を 1 列 で 行なう た め に 、 セ ミコ ロン が PRINT 文 で 使わ れ て いま 
す 。 セ ミコ ロン で つなぐ 表示 の 場合 は 、 変 数 も 入れ る こと が で きる の で 、 比 較 的 美 
し い 画 面 表 示 を 行なう こと が で きま す 。 


"PRKORON.BRS 
CLS 


INPUT "生ま れ た 月 を 入力 し て くだ さい 


UK "生ま れ た 日 を 入力 し て くだ さい 
RINT 
PRINT "あな た は ": PON$: "月 "DaY$, "日 生ま れ で すね 。" 


3 
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1. 入門 編 


カン マ と セミ コロ ン を 組み 合わ せ た 結 果 で す 。 入力 部 と 表示 部 を は っ きり わけ る 
の で あれ ば 、 日 に ちの INPUT 文 の あと に PRINT を 入れ て や る と 画面 上 で 、1 行 空き ま 
す 。 


まれ た 月 を 入力 し て くだ さい = 5 
者 ま 人 委 し 3 計 に 31 


あな た は 5 月 3 1 日 生ま れ で すね 。 





誕生 日 を 聞い て き て いる プロ グラ ム で は 、 文 字 変数 (変数 名 の 後ろ に $) を 使っ て 
いま す 。 当 然 、 数 値 入力 で すか ら 、 数 値 変 数 で よい は ず 。 変数 名 の $ (4 カ所 ) を は 
ず し て 、 プ ログ ラム を 実行 し て みて くだ さい 。 表示 が どの よう に 変わ り ま し た か 。 
また 月 日 に - (マイ ナス 記号 ) を つけ て みて くだ さい 。 





4.2 狙っ た 位置 に 文字 表示 





画面 に 表示 で きる 文字 の 数 は 、1 行 80 字 で 25 行 で す 。 こ れ ら の 位置 は 、Y 軸 、X 軸 
の 交点 を 指定 し て 、 文 字 の 表示 を 行なえ ば 、 画 面 の 好き な 位置 に 表示 する こと が で 
きま す 。 


] 画面 の Y 軸 、X 軸 


数 学 の グラ フ を 作る 場合 の X 軸 、Y 軸 (Quick BASIC の 場合 は 、Y 軸 、X 軸 ) は 、 次 
の よう に な っ て いま す 。 


第 4 章 画面 表示 の 体裁 を 整え る 


oi ・ (4 、2) 数 学 の 座標 
1 1 





) Quiick BASIC の 座標 


画面 上 で の Y 軸 、X 軸 は 、 画 面 の 右端 、 上 部 に な り ま す 。 





























グ 画面 中 央 に Quick BASIC 


面 上 の Y 軸 、X 軸 の 交点 を 表わす の に LOCATE 文 を 使い ます 。 例題 と し て 、 画 面 
es “Quick BASIC” を 表示 し て み ま し ょ う 。 

LOCATE 文 の あと に : (コロ ン ) を つけ て 、PRINT 文 が 続い て いま す 。 こ の よう に 、 
Quick BASIC で は 、 複 数 の 命令 を 1 行 に つない で 使う こと が で きま す 。 こ の スタ イル 
の こと を マル チ ス テー トメ ント と いい 、 か な ら ず 、「: (コロ ン ) | を 使い ます 。 
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*SPL3- の 91 .BRS 

CLS 
LOCRTE 12, 4g: PRINT 
LOCRTE 13, 49: PRINT 





マル チ ス テー トメ ント で 上 の プロ グラ ム を 書く と 、 次 の よう に な り ま す が 、 少 し 
みにくい で すね 


LOCATE 文 の Y と X に 計算 式 を あて は め る こと も で きま す 。 次 の プロ グラ ム は 、 画 
面 上 に 数 字 が 斜め に 表示 され る プロ グラ ム で す ., 

FOR...NEXT で 23 回 繰り 返し 、 画 面 下 方 向 に 1 行 ず つ 23 行 まで いき 、1 行 ずれ る ご と 
に 右 方 向 に Y の 2 倍 だ け 動き ます 。 ス ター ト ポ イ ント は 、Y=1 X=2 で す 
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第 4 章 画面 表示 の 体裁 を 整え る 


'SE ー BA 
ee 
[上 Y= 3 
LOCATE Y,Y*2:PRTNT Y: "<---Y の 後ろ に : (セミ コロ ン ) を 忘れ な い 
NEXT つの 紀 1 
END 





う 文字 が 動く 


PRINT "A" で は 画面 に “A” と いう 文字 が 表示 され まし た 。 そ れ で は 、PRINT"“ 
で は どう な る で し ょ う 。 画面 に NUL し と いう 何 も な い モ ノ が 表示 され ます 。 画面 上 に 
A を 表示 し て 、 そ の 上 に NUL を 表示 する と 画面 上 の A が 消え て し まい ます 

そし て 、 次 の “A" の 表示 を LOCATE 文 で X 軸 の + の 方 向 に 1 つ ず らし 、NUL で 上 書 
き を 行なう 。 こ れ を 繰り 返す と 、 画 面 上 と を あたかも A と いう 文字 が 左 か ら 右 に 走っ 
て いる よう に 見 えま す 。NUL を 使わ な けれ ば 、 画 面 1 直線 に “A" が 80 個 表示 され ま 
す 。 次 の プロ グラ ム を 入力 し て みて くだ さい 
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1. 入門 編 


FOR 1 = 1 TO2 


LOCaTE 19, %: PRIN 
NEXT 


END 





4 Quick BASIC の 数 値 変数 に つい て 


数 値 を 代入 する 変数 に 、 “ABC"” な ど と いう 変数 名 を 使い ます 。 こ の 変数 名 は 、 
ある 一 定 の 大 き さ の 逢 な の で す 。 こ の 数 値 を 入れ る 箱 は 、$ 種 類 の 型 に 分 類 き され て い 
ます 。 実際 に は 、 型 に よっ て 変数 が 使え る 数 値 の 桁 数 が 決め られ て いま す 。 い っ た 
い 何 桁 キ で 使え を る の で し ょ う 。 プ ログ ラム を 作っ て 試し て くだ さい 。 


基本 的 に は 、4 種 類 の 数 値 型 と 文字 型 の 5 種類 が あり ます 。 
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変数 名 の 型 サイ ズ 扱え る 値 の 範囲 解説 
単 精度 実数 刑 4 バイ ト  -3.402823E+38 小数 点 を 扱う 型 で 、7 桁 まで 
ー3.402823E+38 変数 名 の 形 は 、A か A!。 


倍 精度 実数 型 8 バイ ト -1.797693134862316D+308 小数 点 を 扱う 型 で 、15 桁 まで 
ー1.7976931348623D+308 変数 名 の 形 は 、A#。 


整数 弄 2 バイ ト  -32768ー32762 小数 点 以下 は 四 捨 五 人 。 形 は A%。 
倍 長 整数 型 4 バイ ト  -2147483647 有効 桁 15 桁 まで の 小数 点 の 

ー2147483647 な いも の 。 変数 名 の 形 は 、A&。 
文字 弄 最大 32767 文 字 ま で 可変 長 と 固定 長 が ある 。 形 は A$。 


!SPL3-006.BAS 
'1 . 単 精度 実数 弄 

CrS 

IA=1000+ 3 

A! = 1000000 / 3 

PRTNT " 単 精度 実数 型 ム = ッ :A 
ERTNT " 単 精度 実数 型 A! 三 ": Al! 
PRTNT 


'2. 倍 精度 実数 弄 

A# = 1000000000 / 3 

ERTNT " 倍 精度 実数 型 A# ニ ": A# 
PRTNT 


'3. 整数 弄 

A% = 6666 / 100 

PRTNT "整数 刑 Ag": As 
PRINT 


'4. 倍 長 整数 弄 

Ag = 1000000 / 3 

PRTNT " 倍 長 整数 型 ag ニ ": Ag 
PRTNT 
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1. 入門 編 


それ ぞ れ の 変数 に 入れ る 式 を 変え て た めし て くだ さい 。 変数 A! と A は 同じ も の で 
す 。 ふ た つの 変数 に 違う 式 を 入れ て 実行 する と 、 あ と の 式 の 値 が 表示 され ます 。 


型 の 概念 
コン ピュ ー タ で は 、 デ ー タ の 型 と いう も の を 重要 視 し て いて 、 厳 密 に 区 別して 
いま す 。 そ れ は 、 機 械 と いう 制限 され た 器 の 中 で デー タ を 扱う た め 、 人 間 の 頭脳 
の よう に 、 無 限 の デー タ を 扱う わけ に いか な いか ら で す 。 数学 的 に 見 る と 多少 無 
理 が あり ます が 、 コ ンピュータ で 使う 数 (すう ) の 概念 は つぎ の よう に な っ て い 
ます 8 


自然 数 …… 物 を 数 える と いう 素朴 な 観点 か ら 自 然 発 生 し た 数 。 自然数 は 、1 番 目 、 
2 番目 の よう に 順序 を 表わし た り 、1 個 、2 個 と いう よう に 個数 を 表 わ 
す の に 用 いる 。 
自然 数 に 、0 (ゼロ ) と -1.-2 と いう 数 を 加え た も の 。 
整数 に 小数 点 が つく も の 。 





4.3 数 字 と 文字 の 桁 合 わせ 





次 の プロ グラ ム を 実行 し て みて くだ さい 。 
PRINT 1 
PRTNT 10 
PRTINT 100 
PRTINT 1000 


第 4 章 画面 表示 の 体裁 を 整え る 


画面 上 に 表示 され た 結果 は 、 次 の よう に り ま す 。 
1 
10 
100 
1000 
これ ら の 数 字 は 、 次 の よう に 揃え る こと が で きる と 、 画 面 が スッ キリ し ます 。 ま た 、 
3.14 な どの よう に 小数 点 以下 2 桁 捕 を の 表示 だ と 、 た い へ ん 品 が よく な り ま す 。 
⑥ ぐ 3.14 
3.30 
X 3.14159 
3。3 


] 変数 の 型 で 表示 が 変わ る 


すでに 、 小 数 点 以下 を 四 捨 陳 和信 し て し まう 整数 型 (A% と A&) と 小数 点 以下 を 表 
示す る 実数 型 (A OR A! と A#) に つい て 学び まし た 。PRINT USING を 使っ て 桁 を 捕 
えた 表示 を 行なう と き に 、 そ の 影響 が あり ます 。2 種 類 の プロ グラ ム を 載せ て いま す 
か ら 、 実 行 し て 結果 を 比べ て くだ さい 。 

変数 へ の 数 値 の 入力 が 、 め ん どう くさ い の で 、 乱 数 を 発生 する コマ ンド を 使い ま 
し た 。 乱 数 を 使う と き に は 、 最 初 に RANDOMIZE を 設定 し て 、 カ ッ コ の 中 に 整数 を 
入れ て 初期 設定 し ます 。RND(1) は 、0.999・‥・ の 数 値 を 発生 きせ ます の で 、 本 プロ グ 
ラム で は 、1000 倍 し て 、 最 大 999.999‥・ の 100 の 位 の 数 値 が 作れ る よう に 指定 し て あ 
り ま す 。RND の カッ コ 内 の 数 値 に よっ て 同じ 値 の 乱数 を 作り ます 。 そ れ を 麻 け る た 
め に は 、RANDOMIZE の カッ コ の 中 の 数 値 を 変 き せる の に TIMER 関 数 を 使う 方 法 が 
あり ます 。 一 応 決ま っ た 形 と し て 覚え て お く と 、 な に か と 便利 で す 。 


RANDOMTZE VAL,(RIGHT$ (TIME$, 2) ) 
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1. 入門 編 


'SPL3-007.BAS 
CrS 
RANDOMIZE (1) ' 乱 数 を 発生 する た め の 初 期 値 
* カ ウン ター 
WHILE N <> 10 ' カ ウン ト 10 で 繰り 返し 終了 
A = RND(1) * 1000 / 3 "999.99・…・ の 間 で 乱数 を 発生 それ を 3 で 割る 
PRTNT USTNG "###.## り の 。 A 「 小 数 点 以下 2 位 ま で を 表示 
N =N+ 1 '! カ ウン ト 
WEND 
PRTNT ' 攻 行 
' カ ウン ター (初期 値 設定 ) 


WHILE N<> 10 
Ag = RND(1) * 1000 / 3 ' 整数 型 変数 名 に 乱数 計算 値 を 入れ る 
PRINT USING "No##. "> Nz "カウ ント ナン バー を 表示 
PRTNT USING "####.## す "7: Ag 「 下 2 桁 は 00 に な る 


N =N+ 1 ! カ ウン ト 
WEND 
END ' プ ログ ラム 終了 本 


SS が 


op たら さ 

ーー -、、ー 生ま の あの 
BS889SSRS 
SSSSS&S8S&S 


m 





グ 表示 位置 を 指定 する 


位置 の 指定 は 、LOCATE 文 で し た 。 単純 に 21 行 4 列 の 表示 を 行ない ます 。 最 初 の プ 
ログ ラム を 作っ て 、 ホ ー ム メニ ュー バー の コビー 機能 を 使っ て 、3 回 ペー スト と し ま 
し た 。 変数 名 を あと か ら 修正 し ま す 。 

98 


第 4 章 画面 表示 の 体裁 を 整え る 


'SLP3-008 .BAS 
CLS 


Ni 結 (l * カ ウン ター 
WHILE N<> 22 
Ag = RND(1) * 1000 / 3 ' 整数 型 変数 名 に 乱数 計算 値 を 人 れる 
PRINT USING "No#. ": Ni "カウ ント ナン バー を 表示 
PRINT USTNG "####.##7, Ag 「 下 2 桁 は 00 に な る 
=N+ 1 * カ ウン ト 


"カウ ンタ ー (初期 値 設定 
WHILE N <> 22 
Ag = RND(1) * 1000 / 3 ' 整数 型 変数 名 に 乱数 計算 値 を 人 れる 
LOCATE N, 23 'X 軸 23 か ら 表 示 
PRTNT USING "####.##7。 Ag " 下 2 桁 は 00 に な る 
=N+ 1 ! カ ウン ト 


'! カ ウン ター (初期 値 設定 
WHILE N <> 22 
Ag = RND(1) * 1000 / 3 ' 整数 型 変数 名 に 乱数 計算 値 を 人 れる 
LOCATE N, 40 'X 軸 40 か ら 表 示 
PRTNT USTNG "####.##。 Ag ! 下 2 桁 は 00 に な る 
=N+ 1 ' カ ウン ト 


* カ ウン ター (初期 値 設定 
WHILE N <> 22 
As = RND(1) * 1000 / 3 ' 整数 型 変数 名 に 乱数 計算 値 を 人 れる 
LOCATE N, 57 'X 軸 57 か ら 表 示 
PRTNT USTNG "###.##7。 Ag 「 下 2 桁 は 00 に な 
=N+ 1 ' カ ウン ト 


* プ ログ ラム 終了 











1. 入門 編 


9983 
98 ご 8 


に 
@ 
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きず ざま を ざ を 
8 が ggRSaS8888 


2 の 思 の の の の ok の や や 


に 1 た に に 2 お お 


SRea&8e88 


83 
SSSSSSSSSSSSSSSSSSSSS 


すず きる ざ 
に 


1 
31 
121. 
175. 


6 


ーー 


88SS タ 8 
SS8SSSSSSSSSSSSSSSSSSS 


8 谷 き き S お お 


カー ソル の 移動 
Quick BASIC で は 、 カ ー ソ ル 移 動 キ ー を 押し 続け な く て も 、 特 殊 キ ー と の 組 
合せ で 、 編 集 画面 上 の カー ソル 移動 が 行 な を ます 。 


語 た [CTRL] 二 [一 ] か [CTRL] 十 [A] 1! 語 左 [CTRL] 二 […] か [CTRL] 二 [FI 
行頭 へ [CTRL] 十 [QISI 行末 へ [HELP] か [CTRL] 十 [QIID] 
前 ペー ジ へ [ROLL DOWN] か [CTRL] 十 [RI 

次 ペー ジ へ [ROLL UP] か [CTRL] 十 [C] 





4.4 文字 関数 





BASIC の 面白 さ は 、 簡 単に 絵 が 描け る こと と 文字 列 の 処理 が で きる と いう こと で 
す 。 ご く 、 普 通 の 日 本 語 に は 、 文 字 列 と いう 言葉 は あり ませ ん 。 文字 が 集まっ た も 
の で あれ ば 単語 に な り 、 単 語 は 集まれ ば 、 文 ある い は 文章 と な り 、 文 章 や 図 ・ 表 な 
ど が 組み 合わ さっ て 完成 する と 文書 で す 。 

コン ピュ ー タ の 世界 で は 、 デ ー タ と し て みた 場合 に 、 意 味 不明 の 数 字 や 文字 の 維 
列 が あり ます 。 こ の よう に 文章 や 単語 と し て 、 意 味 を な さ な い 文字 の 集まり を 文字 
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列 と 理解 し て いい と 思い ます 。 
] 数 値 を 文字 と し て 扱う 、 そ の 逆 


Quick BASIC で は 、 数 字 は 数 字 、 文 字 は 文字 と ハッ キリ 区 別して 使い ます 。 そ の 
いい 例 が 、 変 数 名 A の 中 に は 、 数 字 が 入り ませ ん 。 ま た 、A$ の 中 に 入っ て いる 数 字 
は 、 文 字 と し て 扱わ れ ま す 。 

入力 し た 数 字 の た し 算 を 行なっ た 結果 と 文字 と し て 連結 し た 結果 を 表示 する プロ 
が 沈 ふ です 。 


PRINT 1+2 表示 は 3 <------- 数 値 と し て 足し 算 の 結果 が 表示 
PRTINT "1"+"2" 表示 は 12 <------- 文字 が 連結 され て 表示 


変数 名 の 型 に こだわ る の は 、 こ こ に ある の で す 。 そ し て 、 数 字 を 文字 に 、 文 字 を 
数 字 に 変え 0 る こと が で きる 関数 が 用 意 さ きれ て いま す 。 数字 か ら 文 字 へ は STRS$、 文 字 
か ら 数 字 へ は VAL 関 数 を 使い ます 。 


'SPL3-009.BAS 
CLS 
N = 1 
DIM DAT (5) 
WHILE N <> 6 


TNPOT "数 字 を 入力 し て くだ さい = ", A 
D(N) = A 


N=N+ 1 
WEND 





B = D(1) + D(2) + D(3) + D(4) + D(5) 
ERINT "入力 数 値 の 合計 =":B 
MOJI1$ = STR$(D(1) ) + STR$(D(2) ) + STR$(D(3) ) 
PRINT "文字 と し て 3 つ 目 まで = ": MOJT1$ 
MOJT2$ = STR$(D(4) ) + STR$(D(5) ) 
PRINT "文字 と し て 残り 2 つ = ": MOJT2$ 


101 








1. 入門 編 


SUJI1 = VAL,(MOJT1$) 

SUJT2 = VAL(MOJT2$) 
PRTNT "文字 の た し 算 ": MOJT1$ + MOJT2$ 
PRINT "数 値 変換 後 の た し 算 ": SUJT1 + SUJT2 


ュー 
に 


な 2 が 7 
2 
ン ン シン シン 
MMHHMH 


を 
を 
を 
を 
了 


= に 
SGS SSS 


mー 


遇 8 
3 
N 
ー_8 





数 値 を 文字 と し て 扱う と 、 数 字 の 前 に 1 文字 分 の 空白 が 入っ て いま す 。 こ れ は 、 画 
面 上 で 、 目 に 見 えな い だ け で 、 + の 記号 が 入っ て いる 状態 を 表し て いま す 。 

つま り 、 文 字 と し て "1"+"2"+"3" と する と 、 画 面 上 で は 、" 1 2 3" と な り ま す 。 純粋 
に 、1 や 2 だ け を 文字 と し て 扱う に は 、 数 字 の 前 の 空白 を 取り 去っ て や る 必要 が あり 
ま 生 。 

Quick BASIC に は 、 必 要 な 文字 だ け を 抽出 する コマ ンド が た くさ ん 用 意 し て あり 
ます 。 


グ 任意 の 文字 を 抽出 
数 字 を 文字 に 変換 し た と き の 空 白 や 文字 列 の 中 か ら 必 要 な 文字 の み を 抽出 する た 


め の 関 数 が た くさ ん 用 意 し て あり ます 。 と りあ え ず 、 よ く 使 う 関数 を 抽出 (?) し 
ま た 。 


1. 文字 列 の 右側 か ら 1 文 字 抽出 RIGHT$("ABCDE"1) 結果 E 
文字 列 の 右側 か ら 2 文 字 抽出 RIGHT$("ABCDE".2) 結果 DE 

2. 文字 列 の 左側 か ら 1 文 字 抽出 LEFT$("ABCDE".1) 結果 A 
文字 列 の 左側 か ら 2 文 字 抽出 LEFT$("ABCDE".2) 結果 AB 

3. 文字 列 の 3 文字 目 か ら 2 文 字 抽出 MID$("ABCDE",3.2) 結果 CD 
文字 列 の 2 文字 目 か ら 3 文 字 抽出 MID$("ABCDE".2.3) 結果 BCD 
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4 . ASCII コ ー ド を 文字 に 変換 する 

5. 文字 列 の 中 に ある 文字 ( 列 ) の 位置 を 知る 
半角 ・ 全 角 に 関係 な く 文字 の 位置 を 知る 

6. 文字 列 の 総 文字 数 を 知る 
半角 ・ 全 角 に 関係 な く 文字 数 を 知る 

その ほか 、 次 の よう な も の が あり ます 。 

・ 半 角 の 空白 文字 列 を 作る 

・ 任 意 の 文字 で 任意 の 数 だ け 文 字 列 を 作る 

・ 文 字 列 の 先頭 に ある 空白 を 取り 除く 

・ 文 字 列 の 最後 に ある 空白 を 取り 除く 

・ ア ルフ ァ ベ ッ ト の 小文字 を 大 文字 に 変換 する 

・ ア ルフ ァ ベ ッ ト の 大 文字 を 小文字 に 変換 する 


第 4 章 画面 表示 の 体裁 を 整え る 


CHR$(&H41) 結果 A 
INSTER("ABCDE"."C") 結果 3 
KINSTER() 
LEN("ABCDE') 
KLEN() 


結果 5 


SPACE$(n)……n は 数 字 
STRING$(n. 文 字 ) 
LTRIM$() 

RTRIM$() 
UCASES( 文 字 列 ) 
LCASE$( 文 字 列 ) 


次 に 紹介 し て いる プロ グラ ム は 、 任 意 に 入力 され た 文字 列 の 文字 数 と 文字 列 の 左 
側 か ら 、 任 意 の 数 の 文字 列 を 抽出 し まし た 。 右側 か ら で あ れ ば 、RIGHT$ に 関数 名 を 
書き 換え る と 実行 で きま す 。 き さら に 、MID$ を 使っ て 任意 の 位置 か ら 好 き な 数 だ け 文 


字 列 の 抽出 を 行なっ て いま す 。 


さら に 、 入 力 さ れ た 数 字 の 入力 ミス に 対す る エラ ー 処 理 が され て いま す の で 、 参 


考 に し て くだ さい 。 


'SPL3-010 .BAS 
CrS 


INPUT "文字 を 適当 な 長 さ で 入力 し て くだ さい = ", MJ$ 


PRTNT 
PRINT "入力 し た 文字 は 、 
MJKAZ = LEN(MJ$) 


「", MJ$, "|」 で すね 。" 
入力 文字 数 の チェ ッ ク 


PRINT "入力 し た の は 、": MJKAZ: "文字 の 長き で す 。" 


PRINT 


PRINT MJKAZ: "以内 の 数 字 で お 答え くだ さい " 


INPUT " 左 か ら 何 文字 まで の 文字 列 を 抽出 し ます か = ", 
LOOP UNTIL LKAZ > 0 AND LKAZ < MJKAZ 


LKAZ$ = LEFT$ (MJ$, LKAZ) く 


LKAZ 


文字 列 左 か ら rkAZ 個 表示 
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1. 入門 編 


PRTNT "目的 の 文字 は 、「": LKAZ$, "] で す 。" 

PRTNT 

PRTNT "|「": MO$: "] は ": MOKAZ: "文字 の 文字 列 で す 。" 
PRINT " > 特定 の 文字 列 を 抽出 し ます 。" 


INPUT "抽出 文字 の スタ ー ト 位置 は 、 何 番目 で すか = ツウ 
IF SNO < 0 THEN 
PRINT "ジョ ー ク で し ょ ? 正 の か ず を 入力 し て くだ さい 
PRTNT 
ELSETF SNO > MJKAZ THEN 
PRTINT "文字 列 オ ー バ ー で す 。 も っ と 小さ な か ず を 入力 し て くだ さい 。 " 
PRINT 
END IF 
LOOP UNTTL SNO > 0 AND SNO < MJKAZ 
ENO = MJKAZ - SNO 


INPUT " 何 文字 文 抽 出し ます か 。", NANO 

IF NANO < 0 THEN 
PRINT "ジョ ー ク で し ょ ? 正 の か ず を 入力 し て くだ さい " 
PRTNT 


ELSETF NANO > ENO THEN 
PRINT "文字 列 オ ー バ ー で す 。 も っ と 小さ な か ず を 入力 し て くだ さい 。" 
PRTNT 
END ITF 
LOOP UNTIL NANO > 0 AND NANO < ENO 
TUMJ$ = MTD$ (MJ$, SNO, NANO) 
PRINT "目的 の 文字 列 は 、「": TOM7$,: "」 で す 。 " 
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文字 を 適当 な 長 さ で 入力 し て くだ さい = BBCDEFG 
委 話 は 。 [「 eBCDEFG」 で すね 。 


し た の は は で す 。 


RI MM 3 





②③ 入力 文字 数 を カウ ント 


プロ グラ ム は 、 入 力 時 の ミス を 防止 する こと も 大 切な 考え 方 の 1 つ で す 。 た と えば 、 
数 字 の 100 を 入力 する と ころ を 200 と 入力 し た り EDPPN 

うな 場合 に 、 文 字数 が 多かっ た り 、 少 な か っ た り が あり ます 。 そ ん な と き に 、 
本 4 

INKEY$ だ っ た ら た や すく で きま すし 、 文 字 入 力 後 の [ リ ターン] キー が 不要 で す 。 

INPUT 文 で は 、 文 字 を 入力 後 、[ リ ター ン ] キ ー を 押し て か ら 文字 数 や 文字 の 種類 
の チェ ッ ク を 行ない ます か ら ワ ン テ ン ポ 遅 れ ま す 。INPUT 文 に 比べ る と プロ グラ ム 

が 多少 複雑 に な り ま す が 、 入 力 方 法 の 1 つの 形 と し て 覚え て お く と 便利 で す 。 

ここ で は 、INKEY$ の プロ グラ ム 例 を 2 つと 、ASCII コ ー ド 表 を 表示 する プロ グラ 
ム を 載せ て お きま す 。 IF..THEN や DO.…LOOP を 使っ て いま す が 、GOTO 文 が あり ま 
せん 。 Quick BASIC の 特長 で ある 構造 文 の 原型 が 含ま れ て いま す 。 


1 . 押さ れ た キー の ASCII コ ー ド 表示 

この 関数 は 、 キ ー ボ ー ド か ら ]1 文 字 を 読み 込み ます 。 こ の プロ グラ ム を 使う と 、 押 
し た キー の ASCII コ ー ド が 16 進 数 で 表示 きれ ます 。 デ タラ メ に キー を 押し て いる う 
ち に 、 偶 然 [E]、[N]、[D] が 入力 され る と 、 押 し た 順番 に 関係 な く プ ログ ラム が 終了 
し ます 。 

また 、 キ ー の 一 部 が 2 バイ トコ ー ド に な っ て いま す 。Quick BASIC の と きだ け か ど 
うか 、EXE フ ァイル を 作っ て 試し て くだ さい 。 
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1. 入門 編 


"SPL3-011 .BAS 


ANS$ = INKEY$ 
LOOP UNTIL ANS$ <> "" 
IF (LEN(ANS$) = 2) THEN 
ASK1$ = HEX$ (ASC (LEFT$ (ANS$, 1) ) ) 
ASK2$ = HEX$ (ASC (RIGHT$ (ANS$, 1) ) ) 
PRINT "2 バイ ト 1e 進 数 sHr, ASK1$ + ASK2$ 
ELSE 
ASK$ = HEX$ (ASC (ANS$) ) 
PRINT "1 バイ ト 1e 進 数 sH", ASK$, 
PRTNT "押し た キー は 、<": ANS$, "> で す 。" 


PRTNT 
TEF ANS$ = "E" THEN ANS1$ = "Er 
TF ANS$ = "N" THEN ANS2$ = "N" 
TE ANS$ = "D" THEN ANS3$ = "D" 
TANS$ = ANS1$ + ANS2$ + ANS3$ 
LOOP UNTIL TANS$ = "END" 
END 


適当 な キー を 押し て みて くだ さい 
&H51 


1 バイ ト 16i 押し た キー は 、<q> で す 。 
1 バイ ト 16 進 数 sHrs 押し た キー は 、<u> で す 。 
1 バイ ト 16 進 数 sHeg 押し た キー は 、<i> で す 。 
1 バイ ト 16 進 数 &He3 押し た キー は 、<c> で す 。 
1 バイ ト 16 進 数 押し た キー は 、<k> で す 。 
1 バイ ト 16 進 数 押し た キー は 、<E> で す 。 
1 バイ ト 16 進 数 押し た キー は 、<N> で す 。 
1 バイ ト 16 進 数 押し た キー は 、<D> で す 。 
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2 . 入力 文字 の 右 か ら 左 へ の 表示 


第 4 章 画面 表示 の 体裁 を 整え る 


画面 上 を 入力 し た 文字 が 右 か ら 左 に 表示 され ます 。 文 字数 を ENO=30 と し て 、30 
文字 分 を 表示 すれ ば 、 終 了 す る よう に な っ て いま す 。ENO の 数 値 を 変化 させ る と 、 


入力 で きる 文字 数 が 変化 し ます 。 


日 本 語 入力 の 場合 は 、 画 面 下 に いっ た ん 表示 し ます 。 [リターン] キー を 押す と 画 
面 中 央 に 表示 きれ ます 。 変数 N が 入力 文字 数 の カウ ント を 行なっ て いま す 。 


*SPL3-012 .BAS 
CLS:N = 0: X = 50: ENO = 30 


DO 


DO 
LOCATE 23, 16 
ANS$ = INKEY$ 
LOOP UNTIL ANS$ <> "" 
LOCATE 10,X-N 


TTANS$ = TTANS$ + ANS$ 


PRINT TTANS$: 
N =N+ 1 
LOOP UNTIL N > ENO 
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1. 人 門 編 


3 . ASCII コ ー ド 表 作 成 プ ログ ラム 

キー ボー ド か ら 入 力 さ れる 文字 は 、 ア スキ ー コ ー ド と いう 整数 値 (10 進 数 で 0 
127 : 16 進 数 で &H00 一 &H7F) に 対応 し て つけ られ て いま す 。 コ ー ド 表 は 、256 個 の 
文字 を 割り 当て る こと が で きま すか ら 、 カ タカ ナ の 入力 で きる 日 本 で は 、 ア スキ ー 
コー ド に カタ カナ を 加え た 拡張 コー ド を JIS で 設定 し て いま す 。 

と ころ が 、 コ ー ド 表 に は まだ 余裕 が ある の で 、PC-9801 で は 、NEC キ ャ ラク タ が コ 
ー ド 表 の 一 部 に 割り 当て られ て いま す 。 拡 ・ 拡 張 ア スキ ー コ ー ド ある い は 、 拡 張 JIS 
コー ド と いう こと に な り ま す 。 こ れ は 、NEC だ け で は な く 富 士 通 で も 日 立 で も 同様 
で す 。 そ の た め 、 パ ソコ ン メ ー カ ー に よっ て 少し ずつ 違っ て いる 拡張 S コ ー ド の こ 
と を 、「 キ ャ ラク タコ ー ド |] と いう 苦し い 呼 び 方 を し て いま す 。NEC の 拡張 キャ ラ 
クタ は キー ボー ド 上 か ら の 入力 は で きま せん 。 

1 章 か ら 使 われ て きた コマ ンド だ け で すか ら 、1 つ ずつ プロ グラ ムリ スト を 見 て い 
く と 理解 で きる と 思い ます 。 一 度 に 画面 に 表示 で きま せん の で 、INKEY$ を 使っ て 、 
画面 の 切り 換え を 待っ て いま す 。 


'SPL3-013 .BAS 
CLS 
XX = -15:X=16: EX = 60 
FOR 1 = gsH10 TO gHEF 
YY = (1I MOD 16) + 1 
TF XX >= EX AND YY = 1 THEN 
OX3) 
DO 
ANS$ = INKEY$ 
LOCATE 18, 10 


PRTNT "適当 な キー を 押し て くだ さい 。 " 
TEF ANS$ <> "" THEN CLS 
LOOP UNTTL ANS$ <> "" 
ELSETF YY = 1 THEN 
XX 吉 2060X 


END TF 
LOCATE YY, XX 
PRTNT USTNG "&Hg & <####> sg &": HEX$(T): Tz CHR$(T) 
NEXT エ T 
END 
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第 4 章 画面 表示 の 体裁 を 整え る 


へ へ ヘ へ ヘ ペ ヘ へ ペ ヘ ペ ヘ ペ ヘ ヘ ペ ヘ へ ヘ へ ヘ へ ヘ ヘ へ へ へ へ 
へ ヘス へ ペ ヘ ペ ヘ ペ へ ペペ ヘ ペ ヘ ペ ヘ ペ ヘ ペ ヘ ペ へ ヘ ペ ヘス ヘス 

し ペーR マ た に = 

…・ の CO の ココ の の ょ の ーーQ 

へ ヘス ヘ へ へ ヘス へ ペ ヘ ペ ヘ ペ ヘ ヘ ペ ヘ ヘ へ ヘ へ へ ヘ へ ヘ へ ヘス へ 

の テテ ゴ ビビ ベーー エ の mm ロウ の の やど 選 

ヘ へ スペ ヘ ペ ヘ ヘ へ ペ ヘ ペ ヘ ペ ヘ ペ ヘ ペ ヘ ヘ へ へ 

> 一 永い て ご コー の つの つら の ら で 


Ns 
や ママ 0 へ で 


っ 


・/ に ーーe 


^ く ご ーーーN で ババ モ く と て の 0 つら で 


a 
b 
c 
d 
@ 
f 
9 
h 
i 

j 
k 
1 

m 
n 
o 


だ ゆい ビオ せ ロス よい U 


ご ば ビエ ロマ させ は キ ロー 1 
344 半 つ いい げ ロニ 9 オデ テコ トミ NRN の 
S 2 コロ で モー コロ ピ ビ ゴ 中 写 お 
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1. 入門 編 


4 自分 の カー ソル を 作る 


プロ グラ ム を 組む と いう こと は 、Quick BASIC 言 語 を 覚え ん る を と いう こと で は あり 
ませ ん 。 自 分 が パソ コン に や ら せ た いこ と を 命令 する と いう こと で す 。 本書 で も こ 
こま で に サン プル プロ グラ ム を 10 個 ほど 紹介 し て いま す が 、 決 し て 、 複 雑 で 特殊 な 
BASIC は 使っ て いま せん 。 さ ら に 、 市 販 の ワー プロ ソフ ト や ゲー ム ソ フ ト の よう に 
完成 され た も の も あり ませ ん 。 な ぜ な ら 、 本 書 で 触れ て いる プロ グラ ム は 、 こ れ か 
ら プ ログ ラム を 組む "あなた" へ の ヒン ト で し か あり ませ ん 。 そ の た め 、 あ な た が 
組ん で みた い プ ログ ラム の ヒン ト が 載っ て いれ ば 、「 よ い 本 |」 に な る し 、 自 分 の 知 
り た いこ と へ の ヒン ト が な けれ ば 「 役 に 立た な い 本 ] に な る で し ょ う 。 

Quick BASIC で は 、 キ ー ボ ー ド か ら 人 入力 で き な い キャ ラク タ を コー ド 表 の 中 か ら 
CHR$ を 使っ て 画面 に 表示 し ます 。 好 き な キ ャ ラク タ で 自作 し ます 。 

キー ボー ド の カー ソル 移動 キー、[†] [!] [一 ] [一 ] を 押す と その 方 向 に 
キャ ラク タコ ー ド か ら 選 ん だ カー ソル が 移動 し ます 。 


'SPL3-014 .BAS 


CrS 
KS$ = CHR$(sHE9) : YY = 1: XX 
DO 
DO 
ANS$ = 1NKEY$ 
GOSUB CSL 
LOOP UNTIL ANS$ <> "" 
TF ANS$ = CHR$(sHO) + CHR$(sH48) THEN 
YY=YY- 1 
TEF YY <= 0O THEN YY = 1 
GOSUB CSL 


ELSETF ANS$ = CHR$(gHO) + CHR$(sH50) THEN 
YY =YY+ 1 
TEF YY >= 23 THEN YY = 23 


GOSUB CSL 
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ELSETF ANS$ = CHR$(sHO) + CHR$(sH4B) THEN 
XX =XX - 1 


TF XX <= O THEN XX = 1 
GOSUB CS 


ELSETF ANS$ = CHR$ (gsHO) + CHR$(sH4D) THEN 
XX = XX 十 1 
TEF XX >= 80 THEN XX = 80 
GOSUB CSL 
END TF 
LOOP 
END 


CSL: 
LOCATE YY, XX 
PRINT KS$: 
TOCATE YY, XX 
PRTINT " ": 
RETURN 


画面 表示 の 体裁 を 整え る 





プロ グラ ム の 中 の KS$=CHR$(&HE9) を KS$=CHR$(&HE8)、CHR$(&HEA)、CHRS$ 


(&HEB) に 変更 し て 実行 し て みて くだ さい 。 


カー ソル 移動 キー の キャ ラク タコ ー ド は 、2 バ イト で す 。CHR$(&HO) を つけ る こ 


と を 交 れ な いよ うに し て くだ さい 。 











1. 入門 編 


第 5 章 ファ イル 処理 の 基礎 知識 





ファ アイ 必 に は ほ は 。、 プ ログ ラム ファ ア イル と デー タフ ァ イ 贅 が あり ます 。 ここ で 諾 。 守 
ー ボ ー ド か ら 入 力 し た デー タ を ディ スク に 保存 し ます 。 

キー ボー ド か ら 入 力 し た デー タ を ディ スク に 書き 込む (な ぜ か 、OUTPUT) 、 書 
き 込 ん だ ディ スク 内 の デー タ を 画面 で 表示 し て みる (これ が INPUT) 。 

これ ら の デー タ 処 理 の 方 法 に は 、 シ ー ケ ン シ ャ ルフ ァイル 形式 と ラン ダム ファ イ 
ル 形 式 の 2 つ を も っ て いま す 。 

簡単 に いう と 、 シ ー ケ ン シ ャ ルフ ァイル は 、 共 の 人 が 使っ て いた 巻紙 と いう 手紙 
に 似 て お り 、 ラ ンダ ム フ ァ イル は 、 レ ポー ト 用 紙 の よう に 1 枚 、1 枚 管理 で きる お 手 
紙 だ と 考え て いい で し ょ う 。 

シー ケン シャ ルフ ァイル は 、 前 か ら 順 番 に デー タ を 入力 し て 行き ます の で 、 必 要 
と する デー タ を 探す 場合 に も 、 最 初 か ら 探し 出し 、 一 部 分 だ け を 修正 し て も 最初 か 
ら 順 番 に 保存 する 必要 が あり ます 。 

その 点 、 ラ ンダ ム フ ァ イル 形式 の 場合 は 、 何 項目 の デー タ が 保存 きれ て いて も 、 
イン デック ス (目次 ) を キッ チリ 作っ て さえ あれ ば 、 一 発 で 必要 な 項目 だ け を 引っ 
張り 出し て 、 そ の 項目 の 部 分 だ け を 簡単 に 修正 で きま す 。 し か し 、 デ ー タ を 入れ る 
た め に は 、 入 力 す る デー タ の 量 や 形 な ど 、 多 少 複雑 な 知識 が 必要 と な り ま す 。 こ の 
よう に 、Quick BASIC の デー タフ ァイル の 形 は この 2 種類 し か あり ませ ん 。 

ラン ダム ファ イル 形式 に つい て は 、 型 の 指定 が 面倒 な の で 、 本 書 の 入門 者 向け と 
いう 主旨 か ら は ずれ ます の で 割愛 し ます 。 
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第 5 章 ファ イル 処理 の 基礎 知識 





5.1 シー ケン シャ ルフ ァイル の 作成 





ディ スク へ デー タ を 書き 込む た め に は 、 


。 キー ボー ド か ら の デー タ 入 力 
。 デイ スク の オー ジジ 
. ディ スク へ の デー タ の 書き 込み 
ディ スク の クロ ー ズ 


や の 〇 の DO 一 


を 、 行 な いま す 。 
また 、 デ ィ ス ク に 書き 込ま れ て いる デー タ を 画面 上 に 表示 させ る に は 、 


1. ディ スク の オー プン 
2 . 画面 上 へ の 表示 
3。 ディ スク の クロ ー ズ 
の 操作 を 行ない ます 。 
1 入力 デー タ を ディ スク へ 読み 込む 
キー ボー ド か ら の デー タ 入 力 は 、END を 入力 する と 終了 し ます 。DO.…LOOP の 中 


の 項目 は 、INPUT 文 を 使っ て 、 自 由 に 増やす こと が で きま す 。 そ の 場合 に は 、 
WRITE #1 の あと の 変数 名 を 、INPUT す る 変数 名 と 合わ せる 必要 が あり ます 。 
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1. 入門 編 


*SPLg4g1 .BRS 
CLS 
LOCRTE 1, 1! 


INPUT "- 
OPEN FILNRI 人 E$ FOR 
ID 


INPUT " 
INPUT " 
ITE 1, 





2 ディ スク か ら 画 面 に デー タ を 表示 


プロ グラ ム 中 の EOF は 、「END OF FILE (ファ イル の お し まい ) |」 と いう こと で 、 
保存 きれ て いる デー タ を すべ て 表示 させ る の に 必要 な 命令 で す 。 詳しく は 、 マ ニュ 
アル を 見 る と し て も 、 こ こ で は 、 こ の 形式 を 丸ごと 覚え て くだ さい 。 

INPUT #1 の あと の 変数 名 は 、 キ ー ボ ー ド か ら 入 力 し た と き の 変 数 名 の 必要 は あり 
ませ ん が 、 文 字 変数 と 数 値 変 数 の 型 は 合わ せる 必要 が あり ます 
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こう し て 、 デ ィ ス ク か ら デ ー タ が 読み 出さ れる こと が 、 確認 で きた ら 、 デ ィ ス ク 
を クロ ー ズ し た あと 、 検 索 や 並べ 大 えん の プロ グラ ム を 追加 し て いき ます 。 デー タ 
の 細工 や 画面 の 体裁 を 自分 用 に 作り 変え た て いき ます 。 


'SPL0402.BAS 
CLS 
LOCATE 1, 10: PRITNT "ディ スク か ら の デー タ 読 み 込み " 
PRTNT 
INPUT "ファ イル 名 を 入力 し て くだ さい ",FTLNAME$ 
OPEN FITLNAME$ FOR INPUT AS #1 
DO UNTIL EOF (1) 
TNPUT #1, KYOK$, KASY$, SAKS$ 
PRTNT KYOK$, KASY$, SAKS$ 
LOOP 
CLOSE #1 
PRINT "表示 終了 ! 適当 な キー を 押し て くだ さい " 
DO 
ANS$ = INKEY$ 
LOOP UNTIL ANS$ <> "" 


の の 馬 | 


人 斉 
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1. 入門 編 





う .2 ロー タス 1-2-3 用 デー タ 入 力 プ ログ ラム 





シー ケン シャ ルフ ァイル 形式 で 、「 ロ ー タ ス 1-2-3| で 使え る デー タ 入 力 プ ブロ グラ 
ム を 作り ます 。 こ の プロ グラ ム で は 、 自 分 で 任意 の 件 数 だ け 項 目 を 指定 し て 、 自 分 
で 項目 名 を 入力 し ます 。 前述 の 歌手 名 登録 プロ グラ ム に 比べ る と 大 きく な っ て いま 
す が 、 シ ー ケ ン シ ャ ルフ ァイル 形式 で すか ら 原 則 は 変わ り ま せん 。 

プロ グラ ム を 順番 に 一 部 分 ずつ 抽出 し な が ら 説 明 し ます が 、 全 プロ グラ ムリ スト 
は 、122 ペ ー ジ に 掲載 し て いま す 。 


1 デー タ 入 力 の メニ ュー 


Quick BASIC の 場合 は 、 繰 り 返 し を 行なう コマ ンド の 中 で 比較 的 扱い や すい の は 、 
DO.…LOOP で す (単に 、 個 人 の 趣味 だ っ た り し て …… ) 
プロ グラ ム を 組む 上 で の 使い 方 は 、 何 度 か 触れ て きま し た が 、 


PE ま 表 】 


LOOP _ UNTIL 


と 、 な っ て いま す 。DO の あと は 、LOOP だ け で も いい の で す が 、LOOP の 中 か ら 抜 
け 出 せな く な る の で 、UNTIL や WEND を 使っ て LOOP か ら の 脱出 を 行ない ます 。 

また 、 マ ニュ アル や 多く の 解説 書 に 書い て ある プロ ッ ク 構 造 と は 、DO..….LOOP に 
囲ま れ た プロ グラ ム の こと で す 。 

この 繰り 返し の 原型 に な る の が 次 の メニ ュー プロ グラ ム で す 。 

プロ グラ ム を 順番 に 見 て み ま す 。 

まず 、 繰 り 返 し を 行なう た め の DO が あり 、 続 いて 画面 を クリ ア す る た め の CLS が 
書い て あり ます 。 非常 に 単純 で す 。 続 いて 、 メ ニュ ー の メッ セー ジ を 表示 する 位置 
を 決め て 、PRINT 文 を 繰り 返し て いま す 。LOCATE 文 は 、 文 字 列 を 画面 に 表示 する 
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LOCATE 10: PRINT "シー ケン シャ ル デ ー タ の 読み 書き " 


LOCATE 12: PRINT "デー タ 入 力 こく 1>" 
LOCATE 12: PRINT "ディ スク の 読み だ し ぐ 2>" 
LOCATE 12: PRINT "終了 く 3>* 
LOCATE 10: INPOT "番号 を 入力 し て くだ さい = ", FL 
TF FL = 5 THEN END 

LOOP UNTIL FL >0ANDFL<4 





た め の も の で す 。 Quick BASIC で は 、N88-BASIC と X と Y 位 置 の 指定 が 反対 で す 。 

メニ ュー の 項目 名 表示 の あと で 、IF.…THEN の 判断 で 、 変 数 FL し が 5 だ っ た ら プ ログ 
ラム を 終了 させ ます 。 

そし て 、FL が 0 より 小さ い (正確 に いう と 、FL が 0 より 大 きく な か っ た ら と な り ま 
す ) か 、FL が 4 より 大 きい と き ( 同 様 に F し が 4 より 小さ く な か っ た ら が 解釈 は 正しい ) 
は 繰り 返し を 行ない ます 。 繰り 返し を 行なう た びに 、DO の すぐ あと に CLS が ある の 
で 画面 が いっ た ん クリ ア さ れ て か ら メ ニュ ー が 表示 され ます 。 

DO と CLS の 入力 位置 を 変 た て 、 違 い を 試し て くだ さい 。 


ャ ル デ ー タ の 読み 書き 


読み だ し 382 


番号 を 入力 し て くだ さい = 





の ドラ イブ の 指定 


ドラ イブ の 指定 は 、N88-DISK BASIC の 場合 は 、 ド ライ ブ 1、 ド ライ ブ 2 で す が 、 
MS-DOS の 場合 は 、 ド ライ ブ を A、B、C と 呼び ます 。 

パソ コン に ハー ド デ ィ スク や RAM デ ィ ス ク を 使っ て いる と 、 ド ライ ブ の 指定 が 変 
わり ます 。 サ ンプ ルプ ログ ラム で は 、 ド ライ プ ブ の 制限 を A、B、C と し て いま す 。 必 


市 が 








1. 入門 編 


要 に 応じ て 、LOOP UNTIL の あと に OR DRV$="D"・… を 書き 加え て くだ さい 。 こ の 
と き 、 ド ライ ブ A を 指定 する つも り で 入力 し た と ころ 、ASSS な ど と 入力 し て も 、 文 
字 列 の 左側 の 1 文字 だ け を 読む せよ うに 、 文 字 関 数 の LEFT$ が 使わ れ て いま す 。 

また 、A、B、C 以 外 の 指定 で あっ た ら 再 び メ ニュ ー が 表示 され ます 。DO..…LOOP 
で 繰り 返す よう に し て いる の は 、 メ ニュ ー の と き と 同 じ で す 。 


DO 
INPUT "ドラ イブ を 指定 し て くだ さい (A.B...) 三 ", DR$ 
DRV$ = LEFT$(DR$, 1) 
DR$ 3 夫 笠 


LOOP UNTIL DRV$ = "A" OR DRV$ = "B" OR DRV$ = "C" 





3② ファ イル 名 の 入力 


「 ロ ー タ ス 1-2-3] で 、 使 いや すい よう に 拡張 子 の “.PRN" は 、 プ ログ ラム 内 で 自 
動 的 に 処理 する よう に し ます 。 そ こ で 、 拡 張子 の “.” (ピリ オド ) が 、 フ ァイル 名 
の 中 に 入ら な いよ うに 文字 関数 INSTR を 使っ て チェ ッ ク し て いま す 。 チ ェ ッ ク に 引 
っ か か っ た と き は 再 入 力 が で きる よう に 、 フ ァイル 名 入力 で も DO.….LOOP を 使っ て 
いま す 。 IF の 判断 と し て 、 入 力 し た ファ イル 名 の 中 に カン マ が 入っ て いる と 文字 列 
の どの 位置 で ある か を 数 字 で 返し て きま す 。 カ ンマ が な けれ ば 、0 の 数 字 が 返さ れ ま 
す 。 そ れ が 最初 の IF で す 。 

さら に 、ELSEIF と 続け て ファ イル 名 の 入力 が 8 文字 を 越え を て も 、LEN で 入力 字数 
を チェ ッ ク し て 8 文字 を 越え を た と き に は 、LEFT$ で 9 文字 目 以降 を 切り 捨て て いま す 。 
ドラ イブ 名 と ファ イル 名 を FILNAME$ に まとめ て 、 サ ブルー チン に 飛ば し て いま す 。 
サ プ ル ー チ ン の 名 前 は APPEN と OPUT で す 。 


Do 
INPUT "ファ イル 名 を 入力 し て くだ さい (8 文字 まで 判読 ) =", FA$ 
TF ITNSTR(FA$, ".") <> 0 THEN 


PRTNT " カン マ を の な 61 で 2 が 
FA$ ass. 8 
ELSETF LEN(FA$) > 8 THEN 
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FA$ = LEFT$(FA$, 8) 
END 1TF 
LOOP UNTTL FA$ <> "" 
PRINT DRV$, "77 FAS: ".PRN": 


PRINT 
FTLNAME$ = DRV$5 + "リト FA$ + "、DAT" 





4 サブ ルー チン ・ プ ロ シ ー ジ ャ 


Quick BASIC は 、 構 造 化 プ ログ ラミ ング を 行なう た め 、 プ ロ シ ー ジ ャ (手続 き / 
と いう 技法 が 使え を ます 。 プ ロ シ ー ジ ャ に し て も 、 た くさ ん の 方 法 が あり ます が 、 独 
断 と 偏見 を も っ て 、 と りあ え ず 、 サ ブ プルー チン ・ プ ロ シ ー ジ ャ に つい て 触れ て いき 


ま 9 
その ほか の も の に つい て は 、 徐 々 に や っ て いけ ば よい で し ょ う (本 書 で は 説明 を 
省き ます ) 。 


従来 の BASIC は 、GOSUB.…RETUEN で 、 図 A の よう な 形式 で 書き まし た 。 

Quick BASIC で は 、 サ プル ー チ ンプ ロ シ ー ジ ャ を 指定 し て や る と 、 サ プル ー チ ン 
プロ グラ ム を 作る 画面 を 自動 的 に 切り 換え て くれ ます 。 そ の た め 、 メ イン プロ グラ 
ム に 惑わ さき れる こと な く 、 サ プル ー チ ンプ ログ ラム 制作 に 専念 で きま す ( 図 B)。 

この 章 で は 、 メ ニュ ー 表 示 を メイ ンプ ログ ラム と し て 、 キ ー ボ ー ド か ら の デー タ 
入力 を サ プ ブルー チン 1、 デ ィ ス ク の 中 の デー タ を 画面 に 表示 させ る プロ グラ ム を サ プ 
ルー チン 2 と し て 、 プ ロ シ ー ジ ャ の 指定 を 行ない まし た 。 

簡単 に いう と 、 プ ログ ラム の スタ ー ト の と き に 、 サ プル ー チ ン と し て 使う ブ プログ 
ラム 名 と 、 そ の サブ ルー チン プロ グラ ム の 中 で 使う 変数 名 を 指定 し て や る こと が 、 
サブ ルー チン プロ シー ジャ の 指定 で す 。 

プロ シー ジャ を 使う と 自動 的 に SUB ル ー チ ン の 画面 が 切り 換わり ます 。 自 分 の 意 
で 画面 切り 換え を 行なう 場合 は メイ ン メ ニュ ー バ ー の [V/ 表 示 ] か [SIFT][f・21 で 画 
面 切 り 換 え が で きま す 。 
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図 A 





RETURN 










GOSUBU GOSUBU 


RETURN 





DECLARE SUB APPN (FILNAME$ ) 


DECLARE SUB OPUT (FILNAME$) 


TEF FL = 1 THEN 

APPN (FTLNAME$) 

ELSETF FL = 2 THEN 
OPUT (FILNAME$) 


END ITF 
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サブ プロ グラ ム 2 


図 B プロ シー ジャ 指定 1 
プロ シー ジャ 指定 2 
ーーーーーーーーーーーー 量 =- 









メイ ンプ ログ ラム 
SUB 指 定 1 
SUB 指 定 2 










ーー キー サブ ルー チン 1 の 指定 
= ニッ ニ = サブ ルー チン 2 の 指定 


ビニ ニ ーー サブ ルー チン 1 の 呼び 出し 


く ーーーーー サブ ルー チン 2 の 呼び 出し 


第 5 章 ファ イル 処理 の 基礎 知識 


め サブ ルー チン プロ シー ジャ の 削除 


サブ プル ー チ ンプ ログ ラム は 、 サ ブ プルー チン プロ シー ジャ を 設定 する と 、Quick 
BASIC の 画面 が 自動 的 に 別 の 画面 に 換わり ます が 、 必 要 な い サ プ ブルー チン の 場合 は 、 
メイ ン メ ニュ ー バ ー の [V/ 表 示 ] か [f.2] で 次 の 画面 を 表示 し て 、 サ ブ プルー チン プログラ 
ム 名 を 削除 し ます 。 


和 T D テ No の) 0 オプ "ショッ 
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1 . 入門 編 
ロー タス 用 デー タ 入 力 全 プロ グラ ムリ スト 


すでに 保存 きれ て いる デー タフ ァイル 名 (拡張 子 .PRN の み ) の 表示 一 覧 と エラ ー 
処理 プロ グラ ム が 追加 され て いま す 。 画面 の 体裁 を 整え る た め 、 第 2 部 で 触れ る グラ 
フィ ックス と カラ ー に つい て も 触れ て いま す 。 特 に 理解 で き な い BASIC 言 語 は な い 
は ず で す 。 ' 


! SP1( 4 0 3 . BAS * 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 末 玉 来 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 来 来 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 


D * 「 ロ ー タ ス 1-2-3』 用 デー タ 入 力 プ ログ ラム * 


! 素 来 玉 玉 玉 玉 玉 玉 来 来 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 来 玉 玉 玉 玉 玉 玉 来 玉 来 玉 玉 玉 玉 来 来 来 玉 玉 玉 


09h ブ No の HG の) 二 問 らら こら ロ ミニ ビニ こ に ニコ ニニ ビジー ピコ ーー ロー ドー ロココ SM 
DECLARE SUB APPN (FILNAME$) 
DECLARE SUB TIPPN (FTLNAME$) 


DTM KOMOK$ (35) , INDAT$ (35) : NON = 0: 


ON ERROR GOTO ERSYOL 
ERSYOL: 
TF ERR = 53 THEN 
SK = 1 
RESUME NEXT 
ON ERROR GOTO 0 
ELSETEF ERR = 71 THEN 
PRTNT DRV$, ":\" 
PRINT "ドラ イブ の 準備 が で き て いま せん " 
PRINT "準備 が 終わ っ た ら 適当 な キー を 押し て くだ さい " 
COLOR 6 
PRINT " 
COLOR 7 
DO 
ANS$ = 1NKEY$ 
LOOP UNTTL ANS$ <> "" 
RESUME 0 
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ON ERROR GOTO 0 
END TIF 
プロ グラ ム の スタ ー ト ーー ニーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
CrS 
LTNE (0, 15)-(640, 32) , 1, BF: LTNE (34 * 8, 16)-(60 * 8, 32), 7, BF 
TOCATE 2, 20: PRTNT " 吉 デ ー タ 入力 ": : COLOR 0: PRTNT" 朱 張 子 は 自動 的 に .PRN で す " 
COLOR 7: PRINT 


DO 
TNPUT "ドラ イブ を 指定 し て くだ さい (A.B..…) 三 "7: DRS$ 
DRV$ = LEFT$(DR$, 1) 
DR$ 町 埋 


OOP UNTTL DRV$ = "A" OR DRV$ = "B" OR DRV$ = "CV 
COLOR 6 
PRTNT "ーー ニー ニーーー ニ ーーー ニニ ニーー ニ ーー ニー ニーーーーー ニ ーー ニニ ーー ニー ニーー ニ ーーーーーーーーーーーーーーーーーーーーーーー 
COLOR 7 
FTLES DRV$ + ":" + "の *.PRN" 
COLOR 6 
PRTNT "ニー ニーーーーー ニ ニー ニー ニーーー ニ ーーーーーーーーーーーー ニ ーー ニー ニーーーー ニ ーーーーーーーーーー ニ ーーーー ニ ーー ニーー 
COLOR 7 
TNPUT "ファ イル 名 を 入力 し て くだ さい (8 文字 まで 判読 ) ニ ", FAS 
DO 
TEF INSTR (FA$, ".") <> 0 THEN 
PRINT " カン マ を つけ な いで ・・・・!『 
EA$ = "" 
ELSETF LEN(FA$) > 8 THEN 
FA$ = LEFT$(FA$, 8) 
END IF 
LOOP UNTIL FA$ <> "" 
FTLNAME$ = DRV$5 + ":" + FEA$ + ".PRN" 
CLOSE #1 
OPEN FILNAME$ FOR 1NPUT AS #1 
TEF SK <> 1 THEN 
DO UNTIL EOF (1) 
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1. 入門 編 


TNPUT #1, D1$ 
LOOP 
SNK = 0 
ELSETEF SK = 1 THEN 
SNK = 1 
CLOSE #1 


CLOSE #1 
Do 
IF SNK = 0 THEN 
INPUT "デー タ を 追加 し ます か (Tr= は い /N= 新 規 /E= 終 了 )", ANs$ 
TF ANS$ = "T" THEN ANS$ = "": APPN (FTLNAME$) 
1F ANS$ = "N" THEN ANS$ = "": TPPN (FILNAME$) 
TF ANS$ = "E" THEN EXTT DO 
ELSETF SNK = 1 OR ANS$ = "N" THEN 
SNK = 0 
TPPN (FTLNAME$) 
END ITF 
LOOP UNTIL ANS$ = "T" AND ANS$ = "N" 
CTS 
LOCATE 10, 20: PRINT "マイ ! わが ルル デルタ 1" 


ここ に SUB APEN(FTLNAME$) と 入力 する と 自動 的 に 画面 が 切り 
換わり ます 。 続け て 、125 ペ ー ジ の プロ グラ ム を 入力 し ます 。 
ここ に SOB TPPN(FILNAME$) と 入力 する と 自動 的 に 画面 が 切り 
換わり ます 。 続け て 、126 ペ ー ジ の プロ グラ ム を 入力 し ます 。 





人 追加 デー タ 入 力 の サブ ・ プ ロ シ ー ジ ャ 

デー タ の 新規 ・ 追 加入 力 の サ プ ブルー チン プロ グラ ム で す 。 Quick BASIC で は 、 メ イ 
ン メ ニュ ー バ ー の [V/ 表 示 ] か ら サ プ メ ニュ ー を 使う か 、[f・2] で 画面 が 切り 換え られ ま 
す 。 
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SUB APPN (FTLNAME$) 
N = 0: ENEF = 0: KENN = 1 
DIM KOMOK$ (35) , TNDAT$ (35) : N = 0: O$ = CHR$ (34) : R$ = CHR$ (44) 
CrS 
LTNE (0, 15) -(640, 32) , 1, BF: LTNE (34 * 8, 16) -(60 * 8。 32) , 7, BF 
TOCATE 2, 20: PRTNT " 〇 デー タ 追 加 ": : COLOR 0: PRINT" 拡張 子 は 自動 的 に .PRN で す : 
COLOR 7: PRINT FILNAME$ 
PRTNT 
CLOSE #1 
OPEN FILNAME$ FOR INPUT AS #1 


TNPUT #1,。 DAT$ 
N=N+1 
TF'N = 1 THEN KOMOK$(N - 1) = DAT$: 
TEF'N <= VAL(KOMOK$ (0) ) + 1 THEN KOMOK$(N - 1) = DAT$ 
LOOP UNTIL EOF (1) 
CLOSE #1 


PRTNT "項目 数 は 、": : COLOR 4: PRINT KOMOK$ (0) , : COLOR 7: PRINT "で す " 
EDT = VAL(KOMOK$ (0) ) 
KENN =N \ EDT 
OPEN FTLNAME$ FOR APPEND AS #1 
PRTNT "「 〇 デー タ を 追加 し ます (ENp=E// BAcK=B//) 〇 」 " 
KOS = KOMOK$ (EDT) : RC = 1TNSTR (KO$, CHR$ (13) ) 


TF RC <> 0 THEN KOMOK$ (EDAT) = LEFT$ (KO$, RC - 1) 


PRINT "検体 番号 ニ ": : COLOR 6: PRINT KENN: : COLOR 7: PRINT " 番 " 
FOR 1 = 1 TO EDT 
PRINT 1 ") の 
COLOR TI MOD 6+ 1 
PRTNT KOMOK$ (1) 
COLOR 7: INPUT "= ", INDAT$ (1) 
TE TINDAT$ (1) = "B//" THEN エ =1-2 
IFT<=0THENI=0 
TF INDAT$ (1) = "E//" THEN 
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TE 1 = EDT AND ENF <> 1 THEN 
FOR ゴ = 1 TO EDT 


TEF J = EDT THEN PRINT 打 , OS: INDAT$ (J) : O$ ELSE PRTNT #, O$: 1NDAT$ (⑦) : QO$: RS: 


KENN = KENN + 1 
PRTNT 
LOOP UNTIL INDAT$ (1) = "E//" 
CLOSE #1 
END SUB 





人 @ 新 規 デ ー タ 入力 の サブ ・ ル ー チ ンプ ロ シ ー ジ ャ 

新規 デー タ の 入力 を 行ない ます 。 デ ー タ 入力 メイ ンプ ログ ラム で サブ ルー チン プ 
ロ シ ー ジ ャ ー を 指定 する と 、 画 面 が 自動 的 に 新規 デー タ 入 力 の サブ ルーチン プロ グ 
ラム に な り ま す 。 画面 が 切り 換 わ っ た と き 、SUB IPPN (FILNAME$) と END SUB の 2 
行 だ け プ ログ ラム が 自動 的 に 作成 され ます 。 こ の 2 行 の 間 に サ プ ブ ・ ル ー チ ンプ ログ ラ 
ム を 作り ます 。 メ イン プロ グラ ム や ほか の サブ ルー チン プロ シー ジャ ー の 画面 は 、 
メイ ン メ ニュ ー バ ー の [V/ 表 示 ] を 選択 し て か ら 、 サ プ メ ニュ ー を 使う か 、[f・2] で 画 
面 が 切り 換え ます 。 


SUB TPPN (FTLNAME$) 

DIM KOMOK$ (35) , INDAT$ (35) : KENN = 1: N=0O 
OS = CHR$ (34) : R$ = CHR$ (44) 

ENEF = 0 

CrS 


LTNE (0, 15) -(640, 32) , 1, BF: LINE (38 * 8, 16) -(64 * 8, 32) , 7, BF 
LOCATE 2, 20: PRTNT "新規 デー タ 入 力 ": : COLOR 0: PRTNT" 拡張 子 は 自動 的 に .PRN で す 上 % 
COLOR 7: PRINT FTLNAME$ 
PRTNT 


CLOSE #1 
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DO 
TNPUT "項目 数 を いれ て くだ さい (30 項 目 ま で : 不 明 の 時 は 、99) 三 ", KOM$ 
KOM = VAL(KOM$) 
TE KOM = 99 THEN PRINT "最後 に // を 入力 し て くだ さい ": KOM = 30 
TF KOM = 0 THEN KOM = 99 
LOOP UNTTL 30 >= KOM 
po 
N=N+ 1: COLORNMOD6+1 
PRTNT N: 
COLOR 7: INPOT "番目 の 項目 は ": KOMOK$ (N) 
LOOP UNTIL KOMOK$ (N) = "//" OR KOM=NORN=30 
TF KOMOK$ (N) = "//" THEN KOMOK$(N) = "":N=N- 1 
KOMOK$ (0) = STR$ (N) 
OPEN FILNAME$ FOR OUTPUT AS #1 
FOR エ =0 TON 
TNDAT$ ( エ ) = KOMOK$ ({) 
ITF 1 = 0 THEN 
PRINT #1, O$: INDAT$(0): O$ 
ELSETF T =N THEN 
PRINT #1, O$: INDAT$ (1) : O$ 
ELSE 
PRTNT #1, C$: TINDAT$() : O$: RS$: 
END IF 
NEXT 
CLOSE #1 
NE =N 
PRTNT 
OPEN FTLNAME$ FOR APPEND AS #1 
PRINT:PRINT "「 〇 へ デー タ 入 力 を 行い ます (END=E// BACK=B//) |" 


PRINT "検体 番号 三 ", : COLOR 6: PRINT KENN: : COLOR 7: PRINT " 番 " 


FOR エ = 1 TO NE 
PRTN TO 
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COLOR T MOD 6+ 1 

PRTNT KOMOK$ (1) 

COLOR 7: INPUT "= ", INDAT$ (1) 
TFTNDAT$ ([) = "B//" THEN エ = ィ 1-2 
TFT<=0THENT=0 
TFTNDAT$ (1) = "E//" THEN エ =NE: ENF = 1 
TE エ =NE AND ENE <> 1 THEN 


FOR L = 1 TO NE 
TF L = NE THEN PRINT 打 , QO$: TNDAT$ (L) : O$ ETSE PRINT #1, O$: INDAT$(L) : O$: R$: 


KENN = KENN + 1:PRINT 
LOOP UNTIL INDAT$ (1) = "E//" 
CLOSE #1 
END SUB 





シー ケン シャ ル で デー タ を 保存 する 場合 、WRITE#1 を 使っ た 文字 変数 は 、" に 囲 
まれ 、 変 数 名 ご と に , (カン マ ) で 区 切ら れ ま す 。 数 値 変数 を 使う と 、" に 囲ま れ ま 
せん か ら 、 数 値 も いっ た ん は 、 文 字 変数 に し まい ます 。 


WRTTE #1, KYOK$, KASY$, SAKS$ 


も し 、PRINT#1 で あれ ば 、 前 処理 と し て 、DB$=CHR$(34):KA$=CHR$(44) を 作っ 
5 で 


PRTINT #1,DB$: KYOK$ : DB$ : KA$ : DB$ : KASY$ : DB$ : KA$ : DB$ : SAKS$: DB$ 


と 、 書 き 直 し て や る 必要 が あり ます 。 
ちな み に 、CHR$(34) は 、" (ダブ ルク ォ ー テ ーション ) 。CHRS$(44) は 、,( カ ンマ ) 
を 示し て いま す 。 キ ャ ラク タ 表 を 参照 し て くだ さい 。 
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で 
99995r 65"。 「"494293"・"7969" "32496", "2922" "46219" ,"796d","65988","9","89593"," 
d","211493","9" 

508" 。"06"。"216127"。 "39429" の "。"49400"。""。"56356"。 の "55829" "754751" 
・9097","07"! "388731"・"07 "23039" "9","35693" "0","60651","0" "65981","9","22649 


6","9" 


が ・ "87。 "714185?, 4799", "84213", "491" "174653", "4799", "196492" "の "122686", 
9444", 


gg999 ,"09" y275779" の の"445197 の "7628317 "7599947 "の "52994", "199693『 。 m 
"19" , "19" "489825" 。 "9", "43196", *@", >59893" "9","79189", "9","88827" "9", "27192 
5", "9" 

911","11", "228768",」"147617", "284775", "13194", "555399", "139189", "364856","1111 
7 "328419", "5356", "1938794", "964" 

99912", "127。 "1332399" "7 ,"154987"。 ッッ 7289359" の "197525"」""。7216788","" "62863 


"09913"」 ッ 13", "832199" , "266467","147994" , "59379" , "323555" , "194124", "129355" , "2859 

7"」 771795"」 "3212", "397485", "49534" 

"99914", "14", "19221417, 人 "151618","466", "262364", "29431", "197961 7, "3597" 
奈 入 0 1 

内 OF て 族 計 記 誠二 工 全 了 代 全 区 所 記 し 


2 "16", "519589" "2173", "56854", i ・"89598", "2173" "89287" の の 199357" の ツ 7 る 2 





ム る 保 存 さ きれ て いる デー タ の 形 


@ その他 の 入力 デー タ 用 サブ ルー チン プロ シー ジャ 

A の の 全開 間 リア タゴ の 2. 印字 出力 用 サ プ ・ ル 
ー チ ンプ ロ シ ー ジ ャ ー な ど が 考え られ ます 。 デ ー タ 入力 プロ グラ ム を 参考 に 、 オ リ 
ジ ナ ル の プロ グラ ム 作 成 に チャ レン ジ し て くだ さい 。 並 べ 天 え や 合計 な どの 計算 式 
の サ プ ル ー チ ンプ ロ シ ー ジ ャ も 考え られ ます 。 し か し 、 こ れ ら は 、「 ロ ー タ ス 1-2-3] 
に 読み 込み きえ すれ ば 、「 ロ ー タ ス 1-2-3] 上 で 処理 が 可能 で す 。 





5 .3 デー タ 入 力 プ ログ ラム の 
実行 可能 (.EXE) フ ァイル の 作成 





プロ グラ ム の 開発 に は 、 対 話 式 の イン タプ リタ が 便利 で す が 、 い っ た ん 、 和 完成 し 
た プロ グラ ム は 、 こ の まま で は 、 プ ログ ラム を 実行 する た びに Quick BASIC を 起動 
し な けれ ば な ら な いと いう 不便 き が あり ます 。 

人 MM 
実行 が 可能 に な り ま す 。 
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1. 入門 編 


1 EXE フ ァイル 作成 の メニ ュー 選択 


Quick BASIC は 、 統 合 開発 環境 と いっ て 、 メ イン メニ ュー バー の R/ 実 行 を 選択 し 
て 、 プ ル ダ ウ ン メ ニュ ー か ら X/EXE フ ァイル 作成 の 項目 を 選ぶ だ け で 、 実行 可能 フ 
2 が イ ル の 作成 が で き ます 。 








DECLGRE SUB PPN (FI 


DECLRRE SUE IPPN (FILNRE$) 
DI KOIOK$(35) , INDRT$(35) : NON = 9: YON = 


GEOZ 
ON ERROR GOTO ERSYOL 
ERSYOL: 
IF ERR = 53 THEN 
に ド 3 に 導 | 
RESUIE NEXT 





EXE フ ァイル 作成 を 選択 する と 、 ダ イア ログ ボッ クス と 呼ば れる 画面 が 表示 され 、 


実行 用 ファ イル 名 の 入力 待ち に な り ま す 。 
EXE フ ァイル を 作る ドラ イブ の 指定 を 忘れ な いよ うに 注意 し て くだ さい 。 


・SPL9493. BRS ** ャ ャ ャ ャ ャ キャ キャ キキ キキ キキ キキ キネ キキ エエ エエ エイ エエ エエ エネ ネネ ネネ ミミ ミミ ミミ よ ミミ よ よ よ よ すす 】 


『 ロー タス 1-2-3』 用 デー タ 入 力 プ ログ ラ 


gg1 :9M1 
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Quick BASIC V4.2 で は 、 ラ ンタ イム 分 離 型 EXE フ ァイル か 、 分 離 型 EXE フ ァイル 
か を 選択 で きま す 。 フ ァイル 名 を 入力 後 、[TAB] キ ー で カー ソル を ジャ ンプ させ る 
か [GRPH]+[X]、 あ る い は [A] を 使い ます 。 

[リタ ー ン ] キ ー を 押す と 、 コ ン パ イラ が 起動 し ます 。 





コン パイ ル が 終了 し た ら 、Quick BASIC が な く て も プロ グラ ム の 実行 が 可能 と な 
り ま まず 。 


A:\>TTT05\SPL0403 
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1 . 入門 編 





5.4 ロー タス 1-2-3 で デー タ を ぇ 使う 





Quick BASIC の シー ケン シャ ルフ ァイル を ロー タス 1-2-3 で 使え る 形 に し て 保存 し 
ます 。 拡 張子 は 自動 的 に DAT が つく よう に し て いま す が 、PRN の ほう が よい か も し 
れ ま せん 。 


1 ロー タス 1-2-3 で 使え る デー タ の 形 
Quick BASIC に 保存 きれ た デー タ の 形 は 、" デ ー タ 1 0 デー タダ 必 データ ・・ の に 


な っ て いま す 。 こ の 形 で あれ ば 、 ロ ー タ ス 1-2-3 の カー ソル の ある 位置 か ら 、 ロ ー タ 
ス が テキ スト ファ イル デー タ と し て 読み 込ん で くれ ます 。 


第 5 章 ファ イル 処理 の 基礎 知識 





ー タ 1ーA"" デ ー タ 1 一 B"" デ ー タ 1 一 C"" デ ー タ 1 一 D"[ リ ター ン ] | 




















デー タ 2 一 A"" デ ー タ 2 一 B"" デ ー タ 2 一 C"" デ ー タ 2 一 D" [リタ ー ン ] | 




















っ の の トー の oO 





デー タタ 入力 用 プロ グラ ム で 作っ た デー タ 
『 ロ ー タ ス 1-2-3】 で 読み 込め ある テ キス ト フ ァイル 型 デ ー タ と は 、 
次 の よう に 保存 きれ て いま す 。 


BE お TYPE RENSYU.PRN 
2 


ん 
ご * 中 


8 共 5 細 上 
あと 妊 6 講 9 EE 


B: ギ > 


この 形式 で あれ ば 、 
「 新 松 』】 の テキ スト ファ イル 型 で 保存 し た も の や 「 一 太郎 」 で 作っ た も の は 、 
『 ロ ー タ ス 1-2-3] で 利用 で きま す 。 
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1 . 入門 編 
グ ロー タス へ の デー タ 読 み 込み 
ロー タス を 起動 する と ワー クシ ー ト 画面 が 表示 され ます 。[f・1] を 押し て 、 カ ー ソ 


ル を 画面 上 部 に ある メニ ュー に 移動 し 、 カ ー ソ ル を [~-][ 一 ] キ ー で 、「F フ ァイル | 
に 移動 させ ます 。 


4E g9: 43 Pf1 


4 還 半 店 証 EE 5558 25 。 IE EE 





[リタ ー ン ] キ ー を 押す と 、 メ ニュ ー が 変わ り ま す 。 カ ー ソ ル を [一 ][ 一 ] キ ー で 、 [1 テ 
キス ト 呼 出し ] に 移動 さき せま す 。 
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続い て 、[ リ ター ン ] キ ー を 押す と メニ ュー が 変わ り ま す 。 入力 し て いる デー タ が 
文字 列 で あっ て も 「N デ ー タ | の ほう を 選択 し ます 。 「T 文 字 列 ] は 、 デ ー タ を セル 
ご と に 収め て くれ ませ ん 。 





読み 込む ファ イル 名 を 入力 し ます 。 ワ イル ドカ ー ド が 使え ます の で 、*.DAT と 人 入 
力 し ます 。 こ の と き 、 デ ー タ の 入っ て いる ディ スク の 指定 を 忘れ な いよ うに し て く 
だ さい 。 





拡張 子 「.DAT」 の 登録 ファ イル の 一 覧 が 表示 され ます 。 カーソル を [で ][ 一 ] キ ー 
で 移動 し て 、 目 的 の ファ イル 名 を 選択 し ます 。 一 太郎 で 、" デ ー タ "." デ ー タ "と 保存 
し た テキ スト ファ イル で あれ ば 、*.JXW と すれ ば 、 一 太郎 の ファ イル 一 覧 が 表示 さ 
光 ます 。 
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1. 入門 編 


読み 込む ファ イル 名 : B:\*.DaT 
RRR.DRT RBC.DaT 222.DRT 





[リタ ー ン ] キー を 押す と 、Quick BASIC で 保存 し た 、「SONG.DAT」 の デー タ が 
ロー タス の セル の 位置 か ら 読 み 込ま れ ま す 。 

この 画面 で は 、 セ ル が 20 (半角 ) 文字 に 設定 され て いる の で 、 デ ー タ の 一 部 し か 
見 る こと が で きま せん 。 





ロー タス の セル 幅 を 24 に 変更 する と 、 登 録 し た デー タ の 全て を 見 る こと が で きま 
す 。 こ こ で は 、 セ ル 幅 を 24 に し て いま す 。 
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これ 以後 は 、 ロ ー タ ス 1-2-3 を 使っ て デー タ を 加工 する こと に な り ま す 。 

この よう に 、Quick BASIC で 作っ た プロ グラ ム を 使っ て 入力 し た デー タ を 「 ロ ー 
タス 1-2-3| で 使う 、 あ る い は 、 一 太郎 で 入力 し た 文章 を 別 の 表 計 算 ノ ソフ ト で 活用 す 
る と いう の が 、 デ ー タ の 互換 性 で す 。MS-DOS で 動く ソフ ト で 入力 され た デー タ は 、 
機種 が 違っ て も 互換 性 を ちっ て いる も の が 多く あり ます 。 一 度 入力 し た デー タ を い 
ろ い ろ な と ころ で 、 再 入力 せ ず に 活用 で きる の も パソ コン の 魅力 で す 。 


志 ま ! け ショ ー ト プロ グラ ム 2 進数 変 栓 プロ グラ ム 


'SPL4-04 .BAS 
CrS 
DIM B(17) 
DO 
= 2 
INPUT "16 進 数 gsHxxxx 10 進 数 その まま 終了 (END) ニ ", IN$ 
TF 1TN$ = "END" OR IN$ = "end" OR IN$ = " 信 シ " THEN END 


T = VAL(IN$): A ム = 1 





137 





138 





. 入門 編 


B(1) = T MOD 2 


B(N) =A\2 
A = B(N) 
TEF A >= 2 THEN B(N) =AMOD 2 
N=N+ 1 
LOOP UNTIL A< 2 
PRINT "10 進 数 ニッ : 
PRTNT "16 進 数 sH" + HEx$ (1) 
PRINT " 2 進数 =": : coroR 6 
TO 1 STEP -1 
STR$ (B () ) 
RTGHT$ (A$, 1) 
り MOD 4 = 0 THEN A5 =""+ ム A$ 
PRTNT A$: 
B(J) = 0 


PRTNT : PRINT : COLOR 7 


 g 1 進数 その まま 終了 (END) =sH16 
16 進 数 =H16 
三 9999 9999 991 911g 
16 人 hooox 19 進 数 その まま 終了 (END) =1g9g 
16 進 外 =sH64 

ーー 9999 9999 9119 g19g 


16 進 数 shoocx 1 進数 その まま 終了 (END) = 





Qunck BASIC 


グ 応用 編 











2 応用 旨 


第 1 章 図形 を 描く た め の 基 本 的 な 命令 





1.1 グラ フィ ックス え ゥ の お まじ な い 





BASIC の 優れ た 機能 の 1 つが この グラ フィ ックス で す 。PC-9801 の 画面 を 構成 する 
縦 400、 横 640 の 点 の 集まり を 使っ て 、 線 を 引い た り 円 を 描い た り し ます 。 

と りあ え ず 、 理屈 抜き で グラ フィ ックス を 楽し むために は 、 プ ログ ラム の 最初 に 
SCREEN 命 令 で 640X400 の 画面 モー ド を 設定 し て 、 画 面 を 消 夫 す る CLS 文 を 使い ま 
す 。 こ の 2 つ は 、 グ ラフ ィ ッ ク を 始め る と き の お まじ な いで す 。 


1] グラ フィ ッ ク 画 面 モ ー ド の お まじ な い 


PC-9801 の 画面 は 、 文 字 を 入力 する た め の 「 テ キス トモ ー ド | と 画面 上 の 好き な 
点 を ディ スプ レイ 上 に 光ら せる 「 グ ラフ ィ ッ クモ ー ド | の 2 つが あり ます 。 これら 
の 画面 の 選択 を 行なう の が SCREEN 命 令 で す 。SCREEN 命 令 に は 次 買 の 4 つが あり 
ます 。SCREEN 87 で は 、 キ ー ボ ー ド か ら 文 字 の 入力 が で きま せん 。 

次 頁 の 表 か ら 、640X400 の ディ スプ レイ で あれ ば 、SCREEN 0 か 、SCREEN 88 を 
使え を ば よい こと が わか り ま す 。 本 書 で は 、 画 面 モ ー ド の お まじ な い は SCREEN 0 を 
使っ て いき ます 。 
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モー ド 説 明 

SCREEN 81 文字 だ け を 表示 する 画面 モー ド の 指定 開 
SCREEN 84 640X200 の グラ フィ ッ ク モ ー ド と テキ スト モー ド の 混在 
SCREEN 87 640X400 の グラ フィ ッ ク 画 面 だ け を 指定 

SCREEN 0 

SCREEN 88 640X400 の グラ フィ ッ ク モ ー ド と テキ スト モー ド の 混在 | 





2 画面 消去 の お まじ な い 


画面 消 夫 は CLS を 使い ます 。CLS も 4 種類 の モー ド を も っ て いま す 。 くわしく は 
リフ ァ レ ンス マニ ュ ア ル を 参照 し て くだ さい 。 Quick BASIC で 作っ た プロ グラ ム に 
日 本 語 フ ロン ト エ ンド プロ セッ サ を 組み 込ん で 使う こと を 前 提 に する 場合 は 、CLS 
0 で な けれ ば な り ま せん 。CLS を 使う と 、 画 面 の 23 行 目 で 日 本 語 フ ロン ト エ ンド プ 
ロ セ ッ サ の シス テム ライ ン と Quick BASIC の ファ ンク ショ ン 表 示 が ぶつ か り 合 っ て 
画面 が 乱れ る こと が あり ます 。 





1.2 画面 に 点 を 表示 する 





PC-9801 の 画面 は 、 縦 400 と 横 640 の 点 、 つ まり 、236.000 個 の 点 か ら 構 成 さ れ て い 
る わけ で す が 、 こ の 236,000 個 の 中 心 は 、 ど こ で し ょ うか 。 点 の 位置 は 、 画 面 左上 
の X 軸 0 点 、Y 軸 0 点 か ら 始 まっ て 、 画 面 右 下 の X 軸 639、Y 軸 399 と な り ま す 。 

この こと か ら 、 画 面 の 中 心 は 、X 軸 が 320、Y 軸 が 200 で す 。 画 面 に 点 を 表示 する 
命令 は 、PSET で すか ら 、 グ ラフ ィ ッ ク の お まじ な い を 書い た あと 、PSET を 書き 、 


X 軸 と Y 軸 の 座標 点 を 書い て 括 紙 で くく れ ば お し まい で す 。 
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2 応用 編 


00A0J) 


回 本 計る (610【 の 
点 の 集合 体 で す 


(OK ゆ :C1019)| 


'GR-PR001 
CLS 
SCREEN 0 
PSET (320, 200) 
END 





プロ グラ ム を 入力 し て 、[SHIFT] キ ー を 押し な が ら [f・5] キ ー を 押す と 、OQuick 
BASIC の 編集 画面 が 消え て 、「 適 当 な キー を 押し て くだ さい | と 表示 が され ます 。 
あわ て て 、 キ ー を 押さ な いよ うに ! 画面 の 中 央 付近 を じっと 観察 し て くだ さい 。 
これ が 、 画 面 上 に 1 ドッ ト を 表示 し た 状態 で す 。 

画面 に 点 を 表示 し た の な ら 、 画 面 の 点 を 消す 命令 が あっ て よさ そう で す 。 素直 に 
そう 思っ て くだ さい 。 


'GR-PR002 
CLS 
SCREEN 0 


PRESET (320, 200) 


END 
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1.3 直線 の 表示 





1 点 が 並ぶ と 線 


点 が 1 列 に 並ん を だ の が 線 で す 。 線 が 4 つの 方 向 に 曲がっ て 始点 に 戻っ て きた ら 四 角 
形 で す 。 こ の プロ グラ ム は 、 第 1 部 で 学習 し た 繰り 返し の 命令 、FOR・・NEXT を 使 
っ て 、 画 面 の 中 央 を X 軸 に 添っ て 左 か ら 右 に 点 が 伸び 、 や が て 点 が 消え て ゆき ます 。 


'GR-PR003 
SCREEN 0 
FOR X = 0O TO 639 


PSET (X, 200) 


NEXT 
FOR X = 0O TO 639 
PRESET (X, 200) 
NEXT 
END 





こん ど は 、Y 軸 に 添っ て 点 が 伸び 、 や が て 消え て ゆく プロ グラ ム が 次 の 例 で す 。 


'GR-PR004 

SCREEN 0 

FOR Y = O TO 399 
PSET (320, Y) 

NEXT 

FOR Y = O TO 399 


PRESET (320, Y) 


NEXT 


END 
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2 応用 編 


画面 中 心 に 点 を 表示 し た あと 、 ホ ッ プ ・ ス テッ プ ・ ジ ャ ンプ と ば か り に 、 通 信 か 
ら 、X 軸 に 20 ド ッ ト 、Y 軸 に 20 ド ッ ト プ ラス 側 、 つ まり 、 点 の 位置 か ら 画面 右 下方 
向 に 、 新 し い 点 を 表示 し ます 。 こ れ は 、 基 準 と な る 画面 の 中 央 位置 か ら 相 対 的 に プ 
ラス 側 に ステ ッ プ し て いま すか ら 、(20.20) の 位置 指定 の こと を 相対 位置 と いい ます 。 
また 、 画 面 中 央 を 示し て いる (320.2000 の こと を 絶対 位置 と 呼ん で いま す 。 








'GR-PR005 
SCREEN 0 
PSET (320, 200) 
PSET STEP (20, 





20) 


2 直線 を 引く 命令 を 使う 


PSET を 使っ て 、 点 の 表示 位置 を 変え る こと で 直線 を 引き まし た 。 と ころ が 、 
BASIC に は 、 直 線 を 引く LINE 文 と いう 命令 を も っ て いま す 。 

この 命令 は 、2 点 を 指定 する だ け で 簡単 に 直線 を 引く こと が で きま す 。 画面 上 、 
左上 か ら 右 下 に 斜め の 線 を 引く プロ グラ ム が 、 次 の 例 で す 。 


第 1 章 図形 を 描く た め の 基 本 的 な 命令 






'GR-PR006 
SCREEN 0 
LTNE (0, 














0) - (640, 399) 





こん ど は 、 画 面 中 心 に 点 を 表示 し た あと 、LINE 文 を 使っ て 相対 位置 に 線 を 伸 ば 
じき まま 。 


'GR-PR007 
SCREEN 0 
PSET (320, 200) 
LINE -STEP(0, 50) 
LTNE -STEP(100, 0) 
LTNE -STEP(0, -100) 
LTNE -STEP(-200, 0) 
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2 応用 編 





1.4 四角 形 の 線 と 面 





線 を 引く 命令 が LINE 文 で し た 。 こ の LINE 文 に Box ( 箱 ) オプ ショ ン を つけ る と 四 
角形 を 描く こと が で きま す 。 こ れ は 、PSET の 点 表 示 を 使っ て も 作れ ます 。 終点 位 
置 を 指定 し た あと 、 カ ンマ (,) が 2 個 続く こと に 注意 し て くだ さい 。 最初 の カン マ 
の 間 に は 、 色 を 指定 する 数 値 0-7 が 入り ます 。 


'GR-PR008 
SCREEN 0 


LINE (100, 100)-(200, 200), , B 





さら に 、Box オ プシ ョ ン に Fil (いっ ぱい ) オプ ショ ン を 加え る と 四角 形 が 塗り つ 
ぶさ れ て 、 直 線 4 本 の 四角 形 か ら 、 面 に 変わ り ま す 。 こ の と き の 面 は 、 白 一 色 。 も 
っ と カラ フル に 楽し みた いも の で す 。 カ ンマ の 間 に 色 コー ド の 1 を 入れ まし た 。 


| ファ ! E 注 集 り 寺 示 > 租 去 R/ 宇 行 D テ リ 
8 


凍 GR-FRO0 En 5 還 還 


ddOM1:gM1 
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1.5 円 を 描く 





円 を 描く 命令 は CIRCLE 文 で す 。 この 命令 を 使う と 真 円 、 椿 円 、 円 弧 を 作る こと 
が で きま す 。 
円 を 描く と き は 、 次 の よう な 式 に な っ て いま す 。 


CIRCrE(X 軸 の 座標 ,Y 軸 の 座標 ), 半 径 , 色 , 円 の スタ ー ト 点 , 終 点 , 円 の 縦横 比 


半径 は 、 ド ッ ト の 数 を 指定 し ます 。 

円 の スタ ー ト 、 終 点 は 、 ラ ジア ン で 角度 を 表わし ます 。 詳し く は 第 3 章 の 曲線 を 
参照 し て くだ さい 。 

この プロ グラ ム は 、3 つ の 円 が 黄色 で 画面 に 表示 され ます 。 最 初 の 円 は 真 円 。 つ 
ぎ は 、 縦 が 50、 横 100 の 円 。3 つ め は 、 縦 が 100、 横 が 50 の 椿 円 で す 。 


'GR-PR010 .BAS 
SCREEN 0 


100: Y = 200: HANKE1 = 80: 
PSETFU ,(。 7 6D 
CIRCLE (X, Y) , HANKETI, CL 


300: Y = 200: HANKET = 100: CL=6 
PSET (X,。 Y) , CL 


CTRGTE (XX, Y) , HANKET/。 CTL。 。 1 / 2 


500: Y = 200: HANKET =100: CL = 6 
PSET (X,。 Y) , CL 
CTRCDE (2 7 Y)/ HANKET/ CT。 が 7 2 / ユ 1 
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2 応用 編 





1.6 色 を つけ る 





点 を 表示 する PSET や 線 を 描く LINE 文 に B や F の オプ ショ ン を つけ まし た 。 こ の オ 
プシ ョ ン の こと を パラ メー タ と いい ます 。 色 も カラ ー コ ー ド を も っ て いて 、 パ ラメ 
ー タ と し て 使用 し ます 。N88-BASIC の カラ ー コ ー ド と Quick BASIC の カラ ー コ ー ド 
は 次 の よう に ちがっ て いま す の で 注意 が 必要 で 


1 Quick BASIC の カラ ー コ ー ド 








カラ ー コ ー ド 接 瑞 参 朋 着 訂 剖 肖 人 W 馬 朋 能 台形 
N88-BASIC の 色 黒 | 青 | 赤 | 紫 | 緑 | 水 | 黄 | 白 
Quick BASIC の 色 黒 | 青 | 緑 | 水 | 赤 | 紫 | 黄 | 白 











第 1 章 図形 を 描く た め の 基本 的 な 命令 


次 の プロ グラ ム を 実行 し て 、 色 を 確認 し て くだ さい 。 変数 CL の 中 に 色 コ ー ド の 
パラ メー タ 値 が 代入 され ます 。 


人 @ 株 の 色 


'GR-PR01 1 .BAS 
SCREEN 0 
CLS:LOCATE 3, 1 
FOR Ch =1 TO7 


COLOR CL 
PRINT "COLOR‥・" + RIGHT$ (STR$ (CL) , 1) 


PRINT 
LINE (10 * 8 8+ 2* (CL*16))-(78* 8, 8+ 2* (CL* 16)), CL 


NEXT 





@ 面 の 色 


!GR-PRO012 
SCREEN 0 
Ch =0 
FOR X = 10 TO 490 STEP 80 
LINE (X, 100)-(X + 70, 200), 7 B 


PATINT (X + 1, 101) , CL, 7 
6CL =、6L HU 


NEXT 
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| 
3 上 1 111 


グ 色 を 混ぜ る 





カラ ー コ ー ド は 、 光 の 三原 色 に 基づい て いま す 。RGB と いう よう に 、 レ ッ ド 
( 赤 ) と グリ ー ン ( 緑 ) 、 そ れ に ブル ー ( 青 ) を 組み 合わ せ た も の で 黒 を 除く 6 色 
が 決め られ ます 。N88-BASIC と Quick BASIC は 、 こ の 三 色 の 並び 方 が 違っ て いる た 
め 、 カ ラー コー ド が 変わ っ て きま す 。 



















N88-BASIC の 色 Quick BASIC の 色 


カラ ー コ ー ド | 




















いい の の m ロ の 一 の 
の) 
ご 具 
ーー 


ーーーー ら らら の 


難 洒 汗 入 還 押 | 誰 








ご の ーー の どー の どー らら | 中 





ご どー らら ーー らら 








ーー どら ーー の ら 
っ の の ト の いら 一 の 

















ーー らら ーー らら っ の 





N88-BASIC の カラ ー コ ー ド も F-BASIC の カラ ー コ ー ド も 同じ で す 。 こ の 表 か ら 従 
来 の カラ ー コ ー ド は 、RGB で は な く GRB で ある こと が わか り ま す 。ROB 対 応 デ ィ 
スプ レイ で は な く 、GRB 対 応 デ ィ ス プレ イ で は な いか な ど と 申す まい 。 普遍 的 な 
カラ ー コ ー ド は 、 ど ちら が よい か な ど と いう 評価 も 賢い 読者 の 皆様 に お まかせ する 
と し て 、 カ ラー コー ド は 、 こ の 光 の 3 原色 を 2 進数 で 表わし ます 。 
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水色 は 、 緑 と 青 の 混ざっ た も の 、 紫 は 赤 と 青 の 混ざっ た も の で す 。 そ れ で は 、 水 


色 に 紫 の 混ざっ た も の は 、 ど う 作 れ ば いい で し ょ う 。 
8 ドッ ト 単 位 で 考え る と 、X 軸 方 向 に [ 水 紫水 紫水 紫水 紫 ] と 画面 上 に 表示 すれ 


ば 、 よ いこ と が わか り ま す 。 カ ラー コー ド 表 か ら 水 色 は 011、 紫 は 101 で す 。 





RGB を 16 進 数 





0101 0101=55H 
1010 1010=AAH 
1111 1111=FFH 





'GR-PR013 .BAS 
SCREEN 0 


CLS 
PATINT (0,0) ,CHR$ (sH55) +CHR$ (sHAA) +CHR$ (sHFF ) 





ピ 
ツ 四角 形 と 円 の 移動 


画面 上 を 右 か ら 左 に 固定 され た X 軸 に 添っ て 四角 形 と 円 を 移動 きせ ます 。 色 の 指 


定 は 、 変 数 CL し を 使う こと に し ます 。 


!GR-PR014 
SCREEN 0 


CLS 
FOR X = 0 TOI!600 STEP 20 


CL = CL+ 1 

TEF CIL >= 8 THEN CL = 1 

10)-(X + 20, 50) , CL, BF 
340)-(X + 20, 380) , CL, BF 


LTNE (X, 
LTNE (X。 
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応用 編 


FOR CX = 


152 


= 1 TO 600 
=CL+ 1 
CL >= 8 THEN CL = 1 
CIRCLE (CX, 150) , 40, CL 
LINE (CX, 200)-(CX + 40, 280) , CL, B 


1 TO 600 
CTIRCLE (CX, 150) , 40, 0 
LTNE (CX, 200)-(CX + 40, 280), 0, B 


LOCATE 12, 34: PRITNT "オシ て イツ" 





第 2 章 直線 と 四角 形 


第 2 章 直線 と 四角 形 





2.1 直線 の スタ イル 





直線 を 引く に は 、PSET あ る い は 、LINE 文 を 使い ます 。 こ の 2 つの 命令 の バリ エ 
ーション で 線 を 引く こと に な り ま す 。 

LINE 文 の 書式 に は 、 線 の スタ イル を 16 ビ ッ ト の パタ ー ン で 指定 する こと が で き 
る よう に な っ て いま す 。 


LTNE (X1, Y1 ) -(X2, Y2) , 色 , BOX, ス タイ ル 
16 ビ ッ ト パ ター ン は 、10 進 数 、16 進 数 で 表示 し ます 。 
男 圏 圏 圏 圏 圏 圏 圏 圏 圏 圏 圏 圏 圏 圏 較 1111 1111 1111 1111=EHEEFFF 
口 還 [] [] 圏 [] 圏 [] 田 「] 圏 [一 | | 凍 =0101 0101 0101 0101=gHAAAA 
口 口 田 圏 [][」 圏 圏 [」[」 圏 圏 [」[」 較 圏 =0011 0011 0011 0011=sH3333 
田 圏 | | 圏 圏 |] 圏 [| 圏 里 || 圏 圏 | | 較 -1101 1011 0110 1101=gHEEFFF 


HH 田口 口 口 較 ロロ 品田 日 較 =1111 1111 1111 1111=sHFFFF 
!GR-PR201 .BAS 
SCREEN 0 
CrS 
LOCATE 2, 5: PRINT "&HFFFF" 
LTNE (6 * 16, 2 * 16)-(500, 2 * 16) , 7, , &HFEFEF 
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LOCATE 4, 5: PRTINT "&HEEEE" 

LTNE (6 * 16, 4 * 16) -(500, 4 * 16) , 1, , &sHEEEE 
LOCATE 6, 5: PRINT "&HDDDD" 

LINE (6 * 16, 6 * 16) -(500, 6 * 16) , 2, , &HDDDD 
LOCATE 8, 5: PRINT "&sHCCCC" 

NE が 6 8 生生 69Yt500 ポ 8, 流 (69 82 が UMRHOCCG 
LOCATE 10, 5: PRINT "sgHBBBB" 

LINE (6 * 16, 10 * 16) -(500, 10 * 16) , 4, , gsHBBBB 
LOCATE 12, 5: PRINT "gHAAAA" 

LTNE (6 * 16, 12 * 16) -(500, 12 * 16), 5, , &sHAAAA 


LOCATE 16, 20: PRINT "10 進 数 100" 
LTNE (16, 16 * 16) -(600, 16 * 16) , 6, , 100 


END 








LINE 文 の 線 の スタ イル を 使っ て 、 今 後 使っ て いく 、 グ ラフ ィ ッ クス の メッ シュ 
画面 を 作り ます 。 メ ッシュ は 、 縦 、 横 と も に 16 ド ッ ト 間 隔 の 四角 を つく る こと に し 
まし た 。 日 本 語 表示 (全角 ) 文字 が 、 ぴ っ た り 収 まる よう に な っ て いま す 。 


'GR-PR202 .BAS 
SCREEN 0 
CLS 
Ch = 2 
LINE (0, 0)-(639, 399) , 2, B 
FOR X = 0 TO 639 STEP 16 


LTNE (X, 0) -(X, 399) , CL, , sH1111 
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癌 


NEXT 
FOR Y = 0O TO 399 STEP 16 

LINE (0, Y)-(639, Y) , CL, , -&H1111 
NEXT 


LOCATE 1, 1 


PRINT " << グ ラフ ィ ッ ク の 基準 メッ シュ >>" 


何 か キ ー を 押し て 





2.2 乱数 を 使っ た 点 と 線 





メッ シュ の 上 で 、 点 と 線 の 表示 を 乱数 で 行ない ます 。 乱 数 を 発生 させ る の は 、X 


軸 の 値 と 、Y 軸 の 値 で す 。 表示 範 囲 を 制限 し て あり ます 。 そ れ が 、 ど こ な の か は 、 


自分 で プロ グラ ム を 実行 きせ て 確認 し て くだ さい 。 
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l 点 の 乱数 


プロ グラ ム は 、 グ ラフ ィ ッ ク の 基準 メッ シュ を 省略 で きま す 。 






"GR-PR203 . BAS 
RANDOMIZE VAL,(RTGHT$ (TIME$, 2) ) 
SCREEN 0 
CLS 








CL = 2 
LTNE (0, 0)-(639, 399) , 2, B 
FOR X = 0 TO 639 STEP 16 
LTNE (X。 0) -(X, 399) , CL, , gsH1111 
NEXT 
FOR Y = 0 TO 399 STEP 16 
LTNE (0, Y) -(639, Y) , CL, , &H1111 
NEXT 
LOCATE 1, 1 
PRINT " << グ ラフ ィ ッ ク の 基準 メッ シュ >>" 

' 点 の 発生 
CL = 7 
FOR エ = 0O TO 1000 
X1 = TINT(RND(1) * 600) + 20 

Y1 = ITNT(RND(1) * 320) + 20 
PSET (X1, Y1), CL 












































NEXT 
END | < グラ フィック の 生 準 メッ ジュ > 


( か キー を 押し て くだ さい 
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第 2 章 直線 と 四角 形 
グ 線 の 乱数 


この プロ グラ ム も グラ フィ ッ ク の 基準 メッ シュ は 省略 で きま す 。 ま た 、 乱 数 で 発 
生 す る X 軸 の 始点 は 、20-620 ま で で す 。 終点 の X 軸 、 始 点 、 終 点 の Y 軸 は どう な っ 
て いる か 、 プ ログ ラム を 見 て くだ さい 。 ち な み に 、X1 が X 軸 の 始点 、Y2 が Y の 終点 
の 乱数 の 値 と な り ま す 。 


'GR-PR204 .BAS 
RANDOMIZE VAL(RIGHT$ (TIME$, 2) ) 
SCREEN 0 
CLS 

CL = 2 

LTNE (0, 0)-(639, 399) , 2, B 
FOR X = 0 TO 639 STEP 16 

LINE (X, 0)-(X, 399) , CL, , sH1111 
NEXT 
FOR Y = 0 TO 399 STEP 16 

LTNE (0, Y) -(639, Y) , CL, , sH1111 
NEXT 
LOCATE 1, 1 


PRINT " << グ ラフ ィ ッ ク の 基準 メッ シュ >>" 
' 線 の 発生 
Cr1 9 人 抽 生 笛 導 か た 必 衣 6 


FOR 0 TO 1000 
CrL2 MOD 6 + 1 
X1 TNT (RND(1) * 600) 20 
Y1 TNT (RND(1) * 320) + 20 
X2 INT(RND(1) * 600) + 20 
Y2 = INT(RND(1) * 320) + 20 
LINE (X1, Y1) -(X2, Y2) , CL1, B 
NEXT 
END 
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2 応用 編 





2.3 三角 形 の 作成 





三角 形 は 、 直 線 を 3 つ 使 っ て 作り ます 。 当 然 、4 つ だ と 四角 形 、$ つ だ と 五角 形 と 、 
多角 形 を 作る 原点 が 三角 形 に あり ます 。 そ し て 、 こ の 多角 形 の 原点 の 作り 方 は 、 
1. 始点 、 終 点 を 指定 し た LINE 文 を 3 つ 用 意 す る 方 法 
2. 始点 を 決め た あと 線 を 延ばし て いく 方 法 
3. 指定 する 位置 を デー タ と し て 取り 込ん で いく 方 法 
の 3 つが 考え られ ます 。 どの 方 法 で も 結果 は 同一 で すか ら 、 自 分 に あっ た 方 法 を 見 
つけ て くだ さい 。 


1 LINE 文 を 使っ た 、2 つ の 三角 形 


画面 位置 を 指定 する グラ フィ ックス の メッ シュ の 上 に 三角 形 が 描か れ ま す 。 三角 
形 を 描く だ け で あれ ば 、 メ ッシュ の 部 分 は 省略 で きま す 。 


第 2 章 


'GR-PR205 . BAS 
SCREEN 0 
CLS 


LTNE (0, 0)-(639, 399) , 2, B 
FOR X = 0 TO 639 STEP 16 
LTNE (X, 0)-(X, 399) , CL, , &H1111 
NEXT 
FOR Y = 0O TO 399 STEP 16 
LTNE - (0, Y) -(639, Y) , CL, , &gH1111 
NEXT 
LOCATE 1, 1 
PRINT " << グ ラフ ィ ッ ク の 基準 メッ シュ >>" 
' 三 角形 を 2 個 trNE 文 
LINE (200, 50)-(50, 200), 5 
LINE (50, 200)-(300, 300), 5 
LINE (300, 300) -(200, 50), 5 


(300, 20) -(150, 360), 7 
(150, 360)-(500, 300), 7 
(500, 300) -(300, 20), 7 


直線 と 四角 形 
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グ 始点 を 決め て 線 を 延ばす 、2 つ の 三角 形 


始点 (PSET) の 
X 軸 、Y 軸 の 値 を 決 
め た あと 、 線 を 延 
ば し た い 位置 の X 
軸 、Y 軸 の 値 を 入 
力 し ます 。 三角 形 
の 最後 は 、 始 点 に 
戻っ て きま す 。 














'GR-PR206 .BAS 






WE 回 か キー を 押し て くだ さい 
CLS 






CL = 2 

LTNE (0, 0) -(639, 399) , 2, B 

FOR X = 0 TO 639 STEP 16 

LTNE (X, 0)-(X, 399) , CL, , sH1111 

NEXT 

FOR Y = 0 TO 399 STEP 16 

LTNE (0, Y) -(639, Y) , CL, , gsH1111 

NEXT 

LOCATE 1, 1 
PRINT " << グ ラフ ィ ッ ク の 基準 メッ シュ >>" 

' 三 角形 を 2 個 LINE 文 

PSET (200, 50), 5 

LTNE -(50, 200), 5 

LTNE -(300, 300), 5 

LINE -(200, 50), 5 














































PSET (300, 20), 7 

LTNE -(150, 360), 7 
LINE -(500, 300), 7 
LTNE -(300, 20), 7 
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う DATA 文 を 使っ た 2 つの 三角 形 


デー タ は 、X 軸 の 値 、Y 軸 の 値 、 線 の 色 の 3 つ を 一 組 に し て いま す 。READ さ れる 
DATA は 同じ 数 で な く て は な り ま せん 。 グ ラフ ィ ッ クス の メッ シュ は 省略 で きま す 。 


GR-PR207 .BAS 
SCREEN 0 
CLS 
CL = 2 
TINE (0, 0) -(639, 399) , 2, B 
FOR X = 0 TO 639 STEP 16 
LTNE (X, 0)-(X, 399) , CL, , sH1111 
NEXT 
FOR Y = 0OITO 399 STEP 16 
LTNE (0, Y) -(639, Y) , CL, , sH1111 
NEXT 
LOCATE 1。 1 
PRINT " << グ ラフ ィ ッ ク の 基準 メッ シュ >>" 
! 三 角形 を 2 個 READ...DATA 文 
FOR エ =1 TO8 
READ X1, Y1, CL 
TE 1T=10OR1I= 5 THEN 
BSET (XX 。 RMW 和 T) し CT 
ELSE 
中 TNE -(X1,。 Y1) , CD 
END ITF 
NEXT 
DATA 200, 50, 5, 50, 200, 5, 300, 300, 5, 200, 50, 5 
DATA 300,20, 7, 150, 360, 7, 500, 300, 7, 300, 20, 7 
END 
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2 応用 編 





2.4 誠 数 を 使っ 7 た 円 と 短 形 


(iTTST amteS rr: を tee 








NN 朱 A、 ま 4gmi 





セーream 





円 は 中 心 点 (YJX) 、 千 形 は 、 始 点 (XI.Y1) と 終点 (X2.Y2) を 乱数 で 作り ます 。 
線 の 色 (CL2) も 乱数 で す 。 大 ・ 中 ・ 小 と 円 と 知 形 を 黒白 まで の 七色 で 塗り つぶ 
し で いき ます 。 


1 乱数 を 使っ た 100 個 の 円 


乱数 を 使っ た 円 を 作り ます 。 円 の 中 心 点 は X1 と Y1。 半 径 は R。 色 は 、CLI と CL2 
を 使い ます 。FOR .……NEXT を 使っ て 、100 個 の 円 を 作っ て いま す 。 


'GR-PR208 .BAS 
RANDOMTZE VAL (RTGHT$ (TIME$, 2) ) 


SCREEN 0 
CLS 
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FOR 1 = 1 TO 100 
X] = INT(RND(1) * 590) + 20 
Y1 = TNT(RND(1) \* 350) + 20 
= INT(RND(1) * 100) 
CL1 = INT(RND(1) * 8) 
CL2 = TNT(RND(1) * 8) 


CIRCTE (X1, Y1) , R, CL2 
PATINT (X1, Y1) , CL1, CL2 





1 . FOR !=1 TO 100 の 数 字 100 を 変え た て みて くだ さい 。 作ら れる 円 の 
数 が 変化 し ます 。 

2 . 変数 CL2 を 数 字 1-ー7 ま で の どれ か に 置き 換え て みて くだ さい 。 画 
面 の 印象 が どの よう に 変わ り ま し た か 。 


ーー ニー ニー ニーー ニ ーー ニ ーー ーー ニー ーーーー ビ ーー ーーー 
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2 応用 旨 


グ 乱数 を 使っ た 四角 形 


変数 、X1 と Y1 は 始点 で 、 変 数 X2.Y2 は 終点 で す 。PAINT 文 を 使っ た 塗り つぶ し 
は 、 円 の と き の よ うに 中 心 点 を 出す こと が で きま せん の で ちょ っ と し た 工夫 が 必要 
で す 。(XIl+X2)2 と (YI+Y2)2 を 使っ て いま す 。 な ぜ で し ょ う 。 考え て みて くだ さい 。 


'GR-PR209 .BAS 
RANDOMIZE VAL(RTGHT$ (TIME$, 2) ) 
SCREEN 0 

GT 


FOR エ = 1 TO 100 
X] = INT(RND(1) * 590) 
Y] = INT(RND(1) * 350) 
X2 TNT (RND(1) * 590) 
Y2 = INT(RND(1) * 350) 
CL1 = INT(RND(1) * 8) 
Cr2 INT (RND(1) * 8) 
LTNE (X1, Y1)-(X2, Y2) , CL2, B 
BATNT ((X1, よ XX2) ./.2。 (Y1 + Y2)) / (CH CTL2 
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< 試し て みよ う >ーーーーーーーーーーーーーーーーー ニ ーーーー ニ ーー ニー ニー テ 


変数 H=RND(1)*3 の 数 字 3 を 1 に 変え た て みて くだ さい 。 


GR-PR210 .BAS 
RANDOMIZE VAL (RIGHT$ (TIME$, 2) ) 
SCREEN 0:CLS 


FOR 1 = 1 TO 100 
X1 = 1TNT(RND(1) * 590) + 20:Y1 = INT(RND(1) * 350) + 20 


R = INT(RND(1) * 100) :H =RND (1) *3 

CL1 = ITNT(RND(1) * 8) :CL2 = INT(RND(1) * 8) 
CIRCLE (X1, Y1) , R, CL2, , ,H 
PATNT (X1, Y1) , CL1, CL2 





エー ニ ーー ニーー ニ ーー ニーーー ニ ーーーーーーーー ニ ーーー ニ ーーーーーーーーーーーー ニ ーーーーー ニ ーーー 


う 乱数 を 使っ た 色 の 発生 


色 の 発生 の 方 法 に は 、0 か ら 7 ま で の 黒 を 含む カラ ー コ ー ド の 指定 の 仕方 と 、1 か 
ら 7 ま で の 黒 を 含ま な い カ ラー コー ド の 発生 の 方 法 が あり ます 。 


里 を 含む わ カ ラー コ ー ド の 発生 CL=TNT (RND (1 ) *8) 


里 を 含ま な い カ ラー コー ド の 発生 CL=INT(RND (1) *7) +1 


この プロ グラ ム は 、0~-7 ま で の 数 値 を 乱数 で 発生 させ た と き の 分 布 状態 を 表示 し 
て いま す 。 乱 数 を 発生 きせ る 回 数 を 1、 表 示 を PSET で 行なっ て いま す 。 発生 し た コ 
ー ド は 、 計 算 し て きら に % 表 示 を 行なっ て いま す 。 


ERTYNT FNT(CE( ひ =ー1) / エ 1000 + 。5) / 107 " 夫 


加算 し た それ ぞ れ の コー ド CL(J-1) を 全体 の 数 字 I で 割っ た あと 、1000 倍 し て 、 四 
捨 五 入 を 行なう た め に 0.5 を 加え て 、 下 一 桁 ま で を 表示 する た め 10 で 割り ます 。 
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'GR-PR211 . BAS 
RANDOMTZE VAL (RIGHT$ (TIME$, 2) ) 






SCREEN 0: CLS 






XX = 50: YY=2 














FOR ゴ =1 TO8 






READ TT$: LOCATE ( け * 2) , 12: PRINT TT$ 






NEXT 
DATA " 趣 "" 表 "9 緑 の " 水 "" 赤 "" 紫 の" 黄 " 白 " 
10 
FOR TI = 1 TO 40000 !T/W=<4000 で 設定 
Gf 
TF CL = 0 THEN 
CL (0) 
ELSETF CL = 
CL (1) 
ELSETF CI = 2 THEN 
CL (2) 
ELSETF CL = 3 THEN 
CL (3) 
ELSETF CL = 4 THEN 













TNT (RND (1 ) 8) :B = GE'+ す )1 









= CL(0) + 1: PSET (XX + CL(0) / W。 YY* ま B* 16+ 1), 7 











1 THEN 










= Chi 計 加 SBSET )(2X7GD(10 人 YY 紀 ま 167 キ 下 作 1 




















〒,Cb(2) 15 ESET (XX CE(2)。 / 宙 放 YBI* 16 1 1) 2 














= CD(3) 1 PSET (XX + CE(3) /LW。 YYJB 16 + キ 1)。 3 










Ch(4) = CE(4) ナ 1: PSET (XX + CL(4) / W, YY* ま B ま 16+ 1)/ 4 








ELSETF CL = 5 THEN 






CL(③), = Ch(5) + 15 PSET (OX +MCL(5)-/W YY ま B' ま (16+ 1)7/5 








ELSETEF CL = 6 THEN 
CL(6) = CL(6) + 1: PSET (XX +。CL(6) /,W。 YY*B*16+ 1),。 6 
ELSETF CL = 7 THEN 

















Ch(7) = ニ CD(7) キ 1: PSET (XX + ChL(7) / W YY * B や 16 寺 1) 7 






END TF 







NEXT 






FORJ= ェ 1 TO8 






LOCATE ( け \* 2), 14 






PRTNT CL(J - 1), INT(CL(J - 1) / エ * 1000 + .5) / 10: "5" 





NEXT 
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< 試し て みよ う > ラ ーーーーーーーーーーーーーーーーーーーーー ニ ーーーー ドコ 


1 . 乱数 原 数 値 で す 。100 回 分 画面 に 表示 し ます 。 
FOR エ =1 TO 100 
PRTNT RND (1), 
NEXT 
2 . 原 数 値 を 10 に し て 、 丸 め た (INT) あと 、 画 面 に 100 回 分 表示 し ます 。 
FOR エ 1=1 TO 100 
PRINT RND (1) , 


NEXT 





2.5 PUT、GET で ウィ ンド ウ を 作る 





Quick BASIC を 起動 し て プロ グラ ム を 編集 する と き 、 サ プ メ ニュ ー の ウィ ンド ウ 
を オー プン し ます 。 直線 と 四角 形 の 応用 例 と し て 、 ウ ィ ン ド ウ の プロ グラ ム を 紹介 
陸 電 天 

画面 の 状態 を GET で 読み 込み 、 ウ ィ ン ド ウ を LINE 文 で 表示 し た あと 、GET 文 で 
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2 応用 旨 


読み 込ん だ 画面 デー タ を 上 塗り する 感じ で ウィ ンド ウ を 消し ます 。 画面 は 黒地 に な 
っ て いま す が 、PAINT 文 で 中 間 色 が 出せ る こと は 学び まし た 。 ぜ ひ 、 自 分 の ウィ ン 
ドウ を 完成 させ て くだ さい 。 


'GR-PR012 PUTsGET を 使っ た ウィ ンド ウ 
DTM Ws$ (9460) : OCF = 1 "DIM=((128+7) /8) *197*7) 
SCREEN 0: CLS 
LTNE (0, 0) -(639, 16) , 3, BF 
LTNE (0, 24)-(639, 371), 7, B 
COrOR 0 


LOCATE 1, 3: PRINT "[1] キ " 


LOCATE 1, 19: PRINT "[2]" 
LOCATE 1, 35: PRINT "[3]" 
LOCATE 23, 1: COLOR 7: PRINT "番号 キー を 押す と ウィ ンド ウ が 開閉 し ます 。": 
GET (10, 20) -(138, 216) , Ws 
DO 
WHILE OCF = 1 
DO 
AN$ = INEKEY$ 
TF AN$ = "1" OR AN$ = "2" OR AN$ = "3" THEN 
OCF = 1: GOSUB OWIN: 
END ITF 
AN$ = "" 
LOOP UNTTL AN$ = "" 
WEND 
DO 
ANS$ = INKEY$ 
TF VAL(ANS$) = FL THEN 
OCF' 呈 1 
COLOR 0 
LOCATE 1, (16 * FL) - 13: PRINT "[": ANS$: "キッ: 
COLOR 7 
BUP 4(10'  (FD や 128)) 128,20)/ Ws PSBT 
END TF 
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ANS$ = "" 
LOOP UNTIL ANS$ = "" 
LOOP 
END 


OWTN: ジー が ル ノ 


FL = VAL(AN$) : COLOR 4 
LOCATE 1, (16 * EL) - 13: PRINT "[": ANS) の : 
COLOR 0 
LINE ((10 + FL * 128) - 128, 20)-((138 + FL * 128) - 128, 216), 7, BF 
LTNE ((14 + FL * 128) - 128, 22) -((134 + FL \ 128) - 128, 212), 0 B 
LOCATE 3, (16 * FL) - 13: PRINT "[": AN$: "1OPEN": 
LOCATE 3, (16 * FL) - 13: PRINT "[": AN$: "1OPEN": 











ンド ウ が 開閉 し ます 。 
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第 3 章 曲 線 





3.1 CIRCLE 文 を 使っ た 円 弧 





円 を 描く CIRCLE 文 に オプ ショ ン を つけ る こと で 、 円 弧 を 描く こと が で きま す 。 





CIRCLE (X, Y) , R, CL, S1,E1, TU 





X,Y は 円 (円弧) の 中 心 座標 。R は 半径 。PC-9801 の 画面 は Y 軸 方 向 が 400 で すか 
ら 、Y 軸 座標 200 と し て 、R (半径 ) は 150 位 が わか りや すい と 思い ます 。 

CL は 円 (円弧 ) の 色 で す 。SI は スタ ー ト 角度 。E1 は エン ド 角 度 を 表わし 、 円 を 
描く 開始 位置 は 、 時 計 の 3 時 の 位置 の の ラジ アン か ら 始 まり 、 時 計 と 反対 回 り の 12 時 
(角度 90 度 ) が 、0.3 ェ ラジアン 、9 時 (180 度 ) が 1 々 ラジ アン と な り ま す 。0 ラ ジ 
アン は 、2 ァ ラジ アン と 同じ で す 。 最 後 の TU は 、 椿 円 を 作る 比率 で す 。 


'GR-PR301 


SCREEN 0 
CLS 





LTNE (320, 0)-(320, 400) , 2, , gH9999 
LTNE (0, 200)-(640, 200) , 2, , gsH9999 
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LOCATE 1, 1 
PRTNT " PT=": 
PRINT "『 ス ター トラ ジア ン =": 


RNNUTIUSESZ ポ ドジ で 2 ガ リン 


CIRCLE (320, 200) , 100, , S1, 





1 扇形 を 描く 


CIRCLE 文 の スタ ー ト 角度 、 エ ンド 角度 に 負 の 実数 を 与え る と 扇形 で 表示 され ま 
す 。S1 と E1I に - (マイ ナス ) 記号 が つい て いる こと に 注意 し て くだ さい 。 こ の 扇形 
の プロ グラ ム を いく つか 組み 合わ せる こと で 、 円 グラ フ を 描く こと が で きま す 。 円 
弧 を 作る た め に は 、- 記 号 が 必要 で すか ら 、0 ラ ジア ン は 使う こと が で きま せん 
こ で 、 例 題 の プロ グラ ム は 、-2*PI を 使っ て いま す が 、0*PI-0.0001 と いう 使い 方 


ン - 


て 


が あり ます 
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LTNE (320, 0)-(320 
LINE (0, 200) -(640, 200 
PT = 3.14159 
S = の PT 
E1 三 に 5 才 pT 
LOCATE 1, 1 
PRINT " PT="。 PT 


1 


PRHNTDY 上 W 入 衝 cm トラ ジア ショ "5 nH 


PRTNT " エン ドラ ジア ン ="z: E1 


CTRCLE、 (320, 200) , 100/- , S1, E1 





CIRCLE 文 を 次 の よう に 書き 換え て み ま 
負 の 整数 を 作る た め に 、 で きる だ け 小 さ な 
ンピュータ を ダマ で し た よう な 気分 が し ませ ん カ 


直 。 ま 9 実 行 結 果 は 、 同 じ に な り 時 し 7 
負 の 数 値 を 作り まし た 。 な ん と な く 、 コ 
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グ 連続 し た 扇形 を 描く 


スタ ー ト 、 エ ンド ラジ アン を 負 の 実数 を 使う こと で 、 円 弧 が 作れ まし た 。 今度 は 、 
変数 KAZ の 中 の 数 字 で 扇形 の 数 を 変 0 る こと が で きま す 。 こ こ で は 、20 個 の 連続 扇 
形 を 作り ます 。 


!GR-PR303 
SCREEN 0 
CLS 
LINE (320, 0)-(320, 400) , 2, , sH9999 
LTNE (0, 200) -(640, 200) , 2, , sH9999 
KAZ = 20 
PT 3.14159 
S1 -2 * PT / KAZ 
E1 = -2 *PT /(KAZ ま 2) 
エ = 0 TOKAZ - 1 
PRINT "S2=": S2, "E2=" ァ E2 
Ch =1TIMOD7+1 
2 = 7 逢 褒 ま ( に ) 00003 
E2 S2 + E1 
CIRCLE (320, 200) , 120, CL, S2, E2 
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P.173 の 最後 の プロ グラ ムリ スト に 1/2 を 追加 し て 、CIRCLE(320.200).120.CL.S2、 
E2.1/2 と 、 書 き 換 えて みて くだ さい 。 真 円 が 円 に 変わ り ま す 。 


ーーー ニー ニーー ニ ーー ニーー ニ ーーー ニ ーー ニー ニー ニー ニーー ー ニ ーーー ニー ニー ニーー ニ ーー ニーー ニ ーー ニー ニーー 





3.2 関数 を 使っ た 曲線 





二 次 関数 Y=aX^2、 お よび 三次 関数 Y=aX^3 を 使っ て 、 曲 線 を 描く こと が で きま す 。 
学校 で 学ん だ こと を 実際 に 目 で 見 る こと が で きま す 。 変数 X2 と Y2 の 数 字 を いろ い 
ろ と 変え て 試し て くだ さい 。 


1 二 次 関数 の 曲線 


INPUT の 数 値 の 目安 を 変数 X2 と Y2 に 入れ て いま す 。 こ の プロ グラ ム も 一 次 関数 
の 基本 的 な プロ グラ ム 例 で す 。 


'GR-PR304 X=Y^2 

SCREEN 0 

CLS 

FOR J = 1 TO 10 
PRINT "X の 値 が 9999 だ っ た ら プ ログ ラム を 終了 し ます " 
INPUT "関数 ysx^2 の x の 値 を 入力 し て くだ さい =", x2 
TE X2 = 9999 THEN END 


INPOT "関数 ysx^2 の Y の 値 を 入力 し て くだ さい =": yY2 


LINE (320, 0) -(320, 400) , 2, , sH9999 
LINE (0, 200) -(640, 200) , 2, , &H9999 
X1 = 320: Y1 = 200 
'X2 =200: Y2 = 100 
XMT = -2: XMA = 2 
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1 





TO XMA STEP 
XX eX ウ 
MGS) リ POY2) 
= XMT THEN 
(XX, yy) , 















PSET 7 
ELSE 
LTNE -(XX, yy) 


END TEF' 








RT 
4 の 


グ 二 次 関数 の 応用 


適当 な 数 値 を 入力 し て くだ さい 。 い ろ い ろ な 数 値 で 10 回 画面 を 楽し むこ と が 
で きま すず す 。 
!GR-PR305 Y=X^2 X 移 動 


SCREEN 0 
CLS 


FOR = 1 TO 10 
PRINT "xX の 値 が 9999 だ っ た ら プ ログ ラム を 終了 し ます " 
INPUT "関数 x=Y^2 の x の 値 を 入力 し て くだ さい ニニ": X2 
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TF X2 = 9999 THEN END 
INPUT "関数 x=y^<2 の Y の 値 を 入力 し て くだ さい ニテ ": Y2 








CLS 





LTNE (320, 0) -(320, 400) , 2, , gsH9999 
LINE (0, 200) -(640, 200) , 2, , gsH9999 
X1 = 320: Y1 = 200 
'X2 =100: Y2 = 200 
XMT = -2: XMA = 2 
FOR エ = 1 TO 5 STEP .2 
FOR X = XMI TO XMA STEP .1 
XX =X] エメ キネ X2 キ ネエ 
2 ちい (XP2)VNTY2) 
TF X = XMI THEN 
PSET (XX, yy), 7 
ELSE 
LTNE -(XX, Y ツ ) 
END TF 
NEXT 
NEXT 
NEXT 
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づ 三次 関数 の 曲線 


Y 軸 に 対し て 、 対 称 の 曲線 と な り ま す 。 視覚 で 数 学 の 公式 を 再現 で きる の は 、 パ 
ツマ ンジ ン の よい ゆる です 。 


'GR-PR306 Y=X^3 

SCREEN 0 

CrS 

FOR J = 1 TO 10 
PRINT "x の 値 が 9999 だ っ た ら プ ログ ラム を 終了 し ます " 
INPUT "関数 Ysx^3 の x の 値 を 入力 し て くだ さい ニ ": X2 


TEF X2 = 9999 THEN END ・ 
INPUT "関数 ysx^3 の Y の 値 を 入力 し て くだ さい ニニ": Y2 


LTNE (320, 0)-(320, 400) , 2, , sgH9999 
LTNE (0, 200)-(640, 200) , 2, , &H9999 
X1 = 320: Y1 = 200 
YX2 =200: Y2 = 100 
XMT = -2: XMA = 2 


FOR X = XMI TO XMA STEP .01 
XX =X1 +X ネ X2 
yy 3 ご (XX の 63) ま ( Y2) 
TEF X = XMI THEN 
PSET (XX,。 yy), 7 
ELSE 
LINE -(XX, YY) 
END TEF 
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3.3 三角 関数 を 使う 





パソ コン の 出 始め の ころ は 、CIRCLE 文 が な く て 、SIN と COS の 三角 関数 を 使っ 
て 円 を 作っ た も の で す 。 そ し て 、 サ イン カー ブ プ と コサイン カー ブ を 使っ て 、 バ イオ 
リズ ム を 作っ て みる と いう の が 、 大 の 卒倒 (リンパ ター ン ) で し た 。 あ な た は 、 ど 
の よう な こと に 挑戦 し て み ま す か . 


』 サイ ンカ ー ブ 


単純 に SIN カ ー ブ を 作り ます 。 変数 XMA の 数 値 が 、SIN カ ー ブ の 回 数 で す 。 プ ロ 
グラ ム で は 、7 つ の 山 を 作り ます 。 


!GR-PR307 SIN CURVE 
SCREEN 0 
CLS 
LINE (0, 200)-(640, 200) , 2, , &H8888 
X] = 50: Y1 = 200 
= 3.14159 
= 20: Y2 = 100 
= 0: XMA =7 ま * PT 
XMI TO XMA STEP .01 
XX = い X1 (TX2 キメ 


yy デ ' Y1 = STN(X) キ Y2 


XMT THEN 


(XX, YY) 


LTNE -(XX, Yy) 
END IF 
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2 応用 編 


YY=Y1 一 SIN(X) を YY=Y1 一 COS(X) に 変え る こ と で コサイン カー ブ 
に な り ま す 。 三 角 関 数 に は 、 ほ か に TAN (タン ゼン ト ) が あり ます 。 
YY=Y1 一 TAN(X) も 試し て くだ さい 。 


キーー ニ ーー ニー ニー ニー ニー ニー ニー ニーー ニ ーーー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニーー 


の サイ ンカ ー ブ の 応用 


サイ ンカ ー プ に 合わ せ て 、 円 を 描い て いま す 。 ま た 、 円 の 色 を 変数 CL で 表し て 
いま す が 、 サ イン カー ブ の ドッ ト の 変化 と 対応 きせ て いま す の で 、 数 字 が 小数 点 以 
下 が 多 い の で 、 い っ た ん 10 倍 し て 、7 で 割っ た 余り に 1 を 加え る 方 法 を と っ て いま す 。 
も し 、X*10 MOD 8 だ と 、0 ( 黒 ) が 入っ て くる こと に な り ま す 。 


'GR-PR308 SIN CURVE 
SCREEN 0 
CLS 
LINE (0, 200)-(640, 200) , 2, , sH8888 
X1 = 20: Y1 = 200 
PT = 3.14159 
X2 = 20: Y2 = 100 
XMT = 0: XMA =5 ま * PT 
FOR X = XMT TO XMA STEP .1 
XX ご X1 + X2 WOX * 2 
yy 用 Y1 - STNi(X) * Y2 
・ TEF X = XMI THEN 
PSET (XX, yy) 
ELSE 
LTNE -(XX, yy) 
END TF 
CL =X* ま 10MOD7+ 1 
CIRCLE (XX, yy) , 50, CL 
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形 > 
は いく つ で すか =1 
は いく つ で すか =2 





の Ss 相 
ゆう リサージュ 図形 


X 軸 と Y 軸 に サイ ンカ ー ブ を 加え る こと で 、 次 の よう な 図形 が 描か れ ま す 。 こ の 
よう な 図形 の こと を リサ ー ジ ュ 図 形 と よび ます 。 


に の る に は) 
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<< リ サー ジュ 図 族 
由 の 72 4 た (た て る の ro: ルビ に 
左右 の くびれ は いく つ で すか 








図形 >> 
た た る の ck: 
た (た た の <E 有 ル / 


何 か キ ー を 押し て くだ さい 


'PR309.BAS リサ ー ジ ュ 図 形 
SCREEN 0 


CLS 


PRINT "<< リ サー ジュ 図形 >>" 
INPUT "上 下 の く びれ は いく つ で すか テッ, 
INPOT " 諾 右 の くびれ は いく つ で すか テッ , 


有利 3.14159 
X1 320: Y1 = 200 
X2 = 3: Y2=5 


T 呈 0 TO 2 PT STEP .01 

XX =X1 二 STN( 了 エエ X2 寺 PT) 150 
YY = Y1 - COS(1 * Y2) * 150 

TEF 1 = 0O THEN 

PSET (XX, YY) 

ELSE 

LTNE -(XX, YY) 

END TF 


第 3 章 


X2 
Y2 





183 








2 応用 編 


何 か キ ー を 押し て くだ さい 





人 44 花びら を つく る 


サイ ン と コサイン の 組み 合せ で す 。 こ の プロ グラ ム も 、 三 角 関 数 を 覚え た て の と 
き の 基 本 的 な プロ グラ ム に な り ま す 。 


"PR310.BAS 花びら 
SCREEN 0 
CrS 
PRINT "<< 花 びら 図形 >> ※ 偶 数 は 、 左 右 対称 の 倍 の 花びら に な り ま す " 
INPUT " 何 枚 の 花びら に し ます か =", Mr 
TF MT MOD 2 = 0 THENKF=2ELSEEKEF=1 
3.14159 
320: Y1 = 200 


FOR. エ = 0。TO PT * RE STEP  。01 


2X。 三 X1 + STN(T ま 「MT) まま (COSI( エ ) や 150 


XY iLs こ UNI AWT SEN'(H)M ギ 50 
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CL = エ * 10MOD7+ 1 


TEF エ = 0O THEN 









PSET (XX, CL 





YY) , 
ELSE 






CL 





LTNE -(XX, YY) , 


END TF 


※ 個 数 は 、 左右 対称 の 倍 の 花 び じ 】 ト 9 だ 4 ノ : を: 
と 肝 / ル に ゴ ン 


< 試し て みよ う > ーーーーーーーーーーーー ニ ーーーーーーーー ニ ーーー ニ ーー ーー 


花びら の 枚数 を n 枚 。 角 度 R で 0 か ら 2x まで 変化 させ た と き 、X 軸 の 座標 XX と 、Y 
軸 の 座標 YY は 、 


XX=COS (n*R) *STN (R) 
YY=COS (n*R) *COS (R) 


で 、 表 わす こと も で きま す 。 例 に 使っ た プロ グラ ム と どこ が ちがっ て 、 ど こ が 共 通 
な ん で し ょ うか 。 結果 は 同じ に な る は ず で す が ……。 

非常 に 単純 な 修飾 で す 。X 軸 上 に 3 つの 花 を つく る プロ グラ ム の 例 で す 。 変数 X1 
が FOR.…NEXT の 中 に 入っ て いま す 。 表 示す る X 座 標 に 気 を つけ れ ば 、 簡 単に 作る 
こと が で きま す 。 
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2 応用 編 


'PR311.BAS 複数 の 花びら 
SCREEN 0 
CrS 
PRTNT "<< 人 花びら 図形 >> ※ 偶 数 は 、 左 右 対称 の 倍 の 花びら に な り ま す " 
INPUT " 何 枚 の 花びら に し ます か テ ", Mr 
TF MT MOD 2 = 0O THEN KF = 2ELSEKF=1 
PT = 3.14159 
Y1 = 200: R = 75 
FOR LTO8 
FOR 1 = 0 TO PIT * KF STEP .01 
X1 = 150 まけ 
XX = X1 + STN(T * MT) * COS(T) * R 
YY = Y1 - SIN(I * MI) * STN( エ T) * R 
Ch=1T*10MOD7+1 
= 0 THEN 
(2 


ご (XX YY) 6D 
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第 4 章 図形 の 回 転 





4.1 円 回 転 





ここ で は 、 図 形 の 回 転 に つい て 整理 し ます 。 
l 扇形 の 一 覧 


グラ フィ ックス の 原点 は 、 つ ね に 点 (ドッ ト ) 単位 で 考え ます 。 扇形 を 作る に は 、 
始点 、 終 点 に 負 の 記号 を つけ る 必要 が あり ます 。 そ の た め に は 、 負 の 数 値 が 扱え る 
最も 小さ い 数 値 0.0001 を 用 いま す 。 


'PR401 .BAS 扇形 の 連続 表示 
SCREEN 0 
CLS 


TT$ = CHR$(sH66) + CHR$(sH55) 

PT = 3.14159 

PRINT "扇形 の 30 度 毎 の 表示 " 
FOR XX = 1 TO 6 
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応用 編 


LINE (XX * 100 - 95, 55)-(XX * 100 - 5, 145) , 2, B, sHBBBB 
LTNE (XX * 100 - 95, 100)-(XX * 100 - 5, 100) , 2, , &H8888 
LTNE (XX * 100 - 50, 55)-(XX * 100 - 50, 145) , 2, , sH8888 
CTRCLE (XX ま 100'- 50』 100), 45, , -.00001,/ =XXK ま 30.* BT / 180 


PATNT (XX * 100 - 45, 99) , TT$ 
LOCATE 10, INT((XX * 100 - 60) / 16) * 2: PRINT XX * 30: " 度 : 


NEXT 


FOR XX WO 赴 2 


LINE ((XX 6) * 100.- 95, 200) -((XX - 6) * 100 - 5, 290) , 2 B, &sHBBBB 


LTNE ((XX -.6) * 100 - 95/ 245)-((2X - 6) * 100 - 5, 245) , 2/ , sH8888 


LTNE ((XX - 6) * 100 - 50, 200)-((XX - 6) * 100 - 50, 290), 2, , &H8888 
CIRCLE ((XX - 6) * 100 -,50,/ 245), .45, 、, -。00001, =XX 30 * PT / 180 


188 


PATNT ((XX - 6) * 100 - 45, 244) , TT$ 
LOCATE 19, TINT(((XX - 6) * 100 - 60) / 16) * 2: PRTNT XX * 30: " 度 : 


NEXT 


扇形 の 3g 度 毎 の 表示 


-o 信 3 
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グ の カラ ー ド ー ナ ツ 


CIRCLE 文 と 円 の 方 程 式 を 使っ て 、 半 円 を ずら し な が ら STEP に 合わ せ て カラ ー コ 


ド を 作り 出し ます 。 ドーナ ツ の 大 き さ は 変数 R の 値 を 変え た て や り ま す 。 







'PR402. 
SCREEN 
CLS 












PT = 3.14159: R = 150 

FOR X = 0 TO 360 STEP 1 
XX =R*COS(X * PT / 180) + 320 
YY=200 -R /2* SIN(X * PIT / 180) 
CL=X*10MOD8 
= 180 + X 

TEF S1 > 360 THEN S1 

















S1 - 360 









TE E1 > 360 THENE1 =E1 - 360 
SNeS1( ま PT /"180: E1 =)E1 ま PT 7 180 














bE) 






CTRCLE (XX, YY) , 50, CL, S1, E1, 
NEXT 










LOCATE 13, 34 
PRINT "ドー ナツ 図形 " 
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2 応用 編 


ぐ 試 し て みよ うっ ーーーーーーーーーーーーーーーーーーーーーー ニ ーーー に 


ドー ナツ プロ グラ ム の STEP の 値 XX を 変化 させ て みて くだ さい 。 


FOR X=0 TO 360 STEP XX 


ドー ナツ の 色 も 変化 し ます 。 ど うし て で し ょ う ? 


ーー デー ーー ーー ーー ーー ーー ビー デー デア レア ーー ピピ ーー 


う ② 地下 鉄工 事 


東京 ・ 御 徒 町 で 起こ っ た 新幹線 工事 の 道路 陥没 は 、 車 を 存 み 込み けが 人 を 出し ま 
し た が 、 こ の 地下 鉄工 事 は 安全 で す 。 地 上 の 草 は 乱数 を 使っ て いま す 。 


!PR403.BAS 地下 鉄工 事 
SCREEN 0 
CS 
RANDOMIZE VAL (RIGHT$ (TIME$, 2) ) 
FOR T = 10 TO 600 STEP 3 
LINE (T, 15) -(T, 32) , 4 
LINE (T + 1, 32)-(T+ 1, 40+T / 10), 6 
KT = INT(RND(1) * 5) : GKE = INT(RND(1) * 2) + 1 
KU = INT(RND(1) * 3) : KSF = INT(RND(1) * 2) + 1 
TEF GKF = 1 THEN KT = -KT 
TEF KSE = 1 THEN KU = -KU 
LTNE (T, 13)-(T + KT,。 5 + KU), 2 


LOCATE 6, 34: PRINT "地下 鉄工 事 " 


PT = 3.14159 
= 2 TO 66 STEP .1 
XX = RT* COS(X * PT / 180) + 10 
YY = 600 - RJ* STN(X * PT / 180) 
CL =X*10MOD8 
GRGTIRICYX XX の 2 (RG 
GTRCDE.(YYI XXNZOR) GT 
RJ=RJ+ 1: R=R+.2 
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4.2 直線 を 使っ た 曲線 





直線 だ け を 使っ て 、 グ ラフ ィ ッ クス の 作成 を 行ない ます 。 究極 の 多角 形 が 円 で あ 
る の と 同じ よう に 、 直 線 を 集合 させ る だ け で 曲線 を 作る こと が で きま す 。 


l 2 個 の 始点 を も つ 直 線 の 集合 
X 軸 0 点 を 、 最 初 の 始点 、Y 軸 399 を 第 2 の 始点 と し ます 。COLOR コ ー ド は 、5( 紫 ) 


に な っ て いま す 。 こ の プロ グラ ム 例 で 、X 軸 、Y 軸 の 位置 関係 を し っ か りつ か む よ 
うに し ます 。 
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2 応用 編 





*PR404.BAS 直線 
SCREEN 0 
CrS 









FOR X = 0O TO 630 STEP 10 
LTNE (0, X / (630 / 399) ) -(X, 399) , 5 






NEXT 





単純 に 直線 の 応用 例 で す 。 画 面 右 下 に 紫 と 画面 左上 に 緑 の 直 線 を 使っ た 曲線 を 表 
示し ます 。LINE 文 が ひと つ 増 えて いま す 。 さ ら に 、LINE 文 を 増やし て 、4 つ の 直線 
を 使っ た 曲線 を 作っ て いま す 。 各 直線 の X の 値 の 変化 と Y の 値 の 変化 を 計算 し て く 
だ さい 。 


*PR405.BAS 対称 直線 
SCREEN 0 
CrS 
FOR X = 0 TO 630 STEP 10 


LTNE (0, X / (630 / 399) ) -(X, 399) , 5 
NE (6307 399, = (2 / (630. 7 899))0 ば は (6307E2 が (0) ンタ 
NEXT 


END 
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第 4 章 





APR405.BAS の 実行 画面 





行 画面 


APR406.BAS の 実 
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2 応用 編 


*PR406.BAS 対称 直線 
SCREEN 0 


CLS 
FOR X = 0O TO 630 STEP 10 
LTNE (0, X / (630 / 399) ) - (X, 399) , 5 
LINE (630, 399 - (X / (630 / 399) ) ) -(630 - X, 0), 2 


LTNE (630, X / (630 / 399) ) -(630 - X, 399) , 7 
LINE (0, 399 - (X / (630 / 399) ) ) -(X, 0), 4 





グ 直線 の 応用 に よる 曲線 


直線 を 使っ た 曲線 は 、 始 点 を 画面 4 端 に 置い て いま し た 。 そ の 始点 を (320.200) 
の 1 点 に 集め た の が 、 こ の プロ グラ ム で す 。 カ ラー コー ド 順 に 画面 に 作成 され ます 。 


"PR407.BAS 対称 直線 
SCREEN 0 
CrS 
FOR X = 0 TO 320 STEP 10 
LINE (320, X / (320 / 200) ) -(320 - X, 200), 1 
LINE (320, X / (320 / 200) ) -(X + 320, 200), 2 


LTNE (320, 399 - (X / (320 / 200) ) ) - (320 - X, 201), 3 
1TNE (320, 399 - (X / (320 / 200) ) ) -(X + 320, 201), 4 
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た だ 、 ひ た すら LINE 文 を 増やし て 作っ た プロ グラ ム で す 。 す べ て 、X と Y の 始点 
を ずら し て いま す 。 直線 を 使っ た 曲線 を 画面 の 4 端 と 中 央 に 始点 を 置い て 組み 合わ 
せ た だ け で す 。 


*PR408.BAS 対称 直線 
SCREEN 0 
CLS 
FOR X = 0 TO 630 STEP 10 
LINE (0, X / (630 / 399) ) - (X, 399), 5 
LTNE (630, 399 - (X / (630 / 399) ) ) -(630 - X, 0), 2 


LTNE (630, X / (630 / 399) ) -(630 - X, 399), 7 


LINE (0, 399 - (X / (630 / 399) ) ) -(X, 0), 4 
NEXT 


FOR X = 0O TO 320 STEP 10 
LTNE (320, X / (320 / 200) ) - (320 - X, 200), 1 
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2 応用 編 


LTNE (320, X / (320 / 200) )-(X + 320, 200) , 2 
LTNE (320, 399 - (X / (320 / 200) ) ) - (320 - X, 201), 3 
LTNE (320, 399 - (X / (320 / 200) ) ) -(X + 320, 201), 4 


NEXT 
END 





う 多角 形 を 作る 


この プロ グラ ム は 、 多 角形 を 作る サン プル プロ グラ ム で す 。N の 値 が 、 最 終 的 な 
多角 形 の 数 で す 。N=7 だ と か N=15 な ど 、 実 際 の 机 の 上 で は 描き に くい 多角 形 を 作 
り ま す 。 パ ソコ ン の 画面 の 解像度 の 関係 で 、N=35 で は 円 に 見 えま す 。 

'PR409.BAS 線 の 増殖 
SCREEN 0 


CLS 
N ー 35: X1 = 320: Y1 = 350: R = 50: PT'=.3.14159 


FORJ=2 TON 
PSET (X1, Y1), 4 
RT =2*PT / 





196 


第 4 章 図形 の 回 転 


FOR エ = O TOJ- 1 


COS( エ T * RJ) *R 
SITN(T * RJ) * R 
ェ -STEP (XX 7 2, <YY/。 2) 





多角 形 の 応用 で す 。 画面 上 に ドッ ト 単 位 の 目盛 り を 表示 し て 、 多 角 鍵 を 作る の 
に 必要 な デー タ を 画面 か ら 入 力 し ます 。 


*PR410.BAS 多角 鍵 


SCREEN 0 


LINE (320, 0) -(320, 300) , 2, , sgHAAAA 

LINE (0, 300)-(640, 300) , 2, , sHAAAA 

YM= 1 TO 9 

LTNE (316, YM * 32) -(324, YM * 32) , 2, , &sHAAAA 

LTNE (320 + YM ま * 32, 296) -(320 + YM* 32,。 300) , 2, , sHAAAA 
LINE (320 - YM* 32, 296) -(320 - YM* 32, 300) , 2, , &HAAAA 
LOCATE YM * 2, 42: PRTNT YM* 32 

LOCATE 20, 39 - YM* 4: PRINT YM* 32 

LOCATE 20, 40 + YM* 4: PRINT YM* 32 
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応用 編 


NEXT 
LOCATE 1 1 
TNPUT "多角 鍵 の 高き ニモ ", Y0 
INPUT "多角 形 の 半径 =", R 
INPUT " 角 数 デ ",。 KAK 
X = 320: Y = 300: Xx0 = 320 
XR = 1: YR = 3: PT = 3.14159: K = 360 / KAK 
DTM X1 (KAK) , Y1 (KAK) 


FOR エ T = 0O TO 360 STEP K 


FOR = 1 TO KAK 
Gim(BEL/(180) あ ((G KW (19) 
X1(J) = X + R / XR * COS(C) 
Y1(J) =Y-R/YR* STN(C) 

NEXT 


FOR リ = 1 TO 2 
旦 = ゴ + 1 
LINE (X0, Y0) -(X1 ( け ) , Y1 ( け ) ) , 5 
PSET (X1 ( け ) , Y1 ( け ) ) , 5 


LTNE -(X1(H) , Y1(H)), 7 
NEXT 


NEXT 
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4| 階 乗 式 を 使っ た 直線 


3 つの LINE 文 を 組み 合わ せま す 。 ど の プロ グラ ム が 、 画 面 上 に どの よう に 表示 さ 
れ て いる か は 、LINE 文 の あと の カラ ー コ ー ド 3 を 、1 ( 青 ) 、2 ( 緑 ) 、3 (水色 ) 
と 変え た て や る の も ひと つの 方 法 で す 。 


*PR411.BAS 直線 
SCREEN 0 
crs 


N = 0 
FOR Y = 200 TO 400 STEP 5 
LINE (0, Y)-(640, Y) , 3, , sHAAAA 
N=N+ 1 
に 3 4 いと 40E ea 


2 
310 TO 0 STEP -10 
N=N+ 2 
LINE (X, 200)-(X - N ^ 2, 400) , 3, , &sHAAAA 
NEXT 
N = 2 
320 TO 640 STEP 10 
N=N+ 2 
LINE (X, 200)-(X+N ^ 2, 400) , 3, , sHAAAA 
NEXT 
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2 応用 編 


師 が か キー を 押 じ て くだ さい 





り 息 を する カラ ー 四 角形 


四角 形 が 色 を 変え な が ら 画 面 い っ ぱい に 膨らみ や が て 、 中 央 へ し ぼん で いく よう 
す を 10 回 繰り 返し ます 。 こ の プロ グラ ム の 中 に 、「'LINE(.…] と REM を つけ た LINE 
文 が あり ます 。 こ の REM を 取る と どう な る の で し ょ う 。 た っ た ひと つの REM で 実 
行 結果 の イメ ー ジ が 変わ り ま す 。 こ れ が 、 プ ログ ラム の 楽し き で も あり ます 。 


'PR412.BAS 知 形 
SCREEN 0 
CrS 
FOR 1 = O TO10 
K = 320 / 200 
FOR Y = 0O TO 200 STEP 5 
ChL=YMOD7+1 
LTNE (320 - Y * K,。 200 - Y)-(320 + Y * K, 200 + Y), CL。 B 
! LTNE (320 - Y * K, 200 - Y)-(320 + Y * K, 200 +Y), 0, B 
NEXFT 


FOR Y = 200 TO 0 STEP -5 
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Ch =YMOD 7+ 1 
! LTNE (320 - Y * KK, 200 - Y)-(320 + Y * 人 KK, 200 + Y), CL, B 
LINE (320 -Y\*K, 200 - Y)-(320 + Y* K, 200 + Y), 0 B 





) 中 三 針 時 計 


直接 コマ ンド で PRINT TIME$ と 実行 すれ ば 、 画 面 上 に 、 た と えば 、13:42:51 と 表 
示 き れ ま す 。 こ れ は 、 パ ソコ ン の 内 部 時 計 が 午後 1 時 42 分 S1 秒 を 示し て いま す 。 
この 内 部 時 間 の 変化 を 三角 関数 と 組み 合わ せる と 中 三 針 の アナ ログ 時 計 と な り 
ます 。 針 の 長き や 大 さき 、 時 計 の 文字 盤 な ど 、 必 要 最 小 限度 の 表示 し か し て いま せ 
ん 。 針 の 表示 の 方 法 は 、GET、PUT コ マン ド を 使う と 、 も っ と 美しい か わい らし い 
時 計 を 作る こと が で きま す 。 
'PR413.BAS 時 計 


SCREEN 0 
CLS 


DTM XX (360) , YY(360) : PI = 3.14159 
CIRCLE (320, 200), 108, 7 
R = 106: S = -1: GOSUB HYOJ1: 
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R = 100: S = -6: FL = 2: GOSUB HYOJT : 
94: S = -6: FL = 1: GOSUB HYOJ1 : 
DO 
GOSUB KETSAN: 
LOOP 


さい 
450 TO 91 STEP S 
oy 1 
XX ( け ) INT(R * COS(T * PT / 180) ) + 320 
YY ( け ) = INT(200 - R* SIN(IT * PT / 180) ) 
TEF FL = ニ 2A2ANDJMOD5= 0O THEN 
CTRCLE (XX(J) , YY (J) ) , 3, 2 
ELSETEF FL <> 1 THEN 
PSET (XX(J) , YY (J) ) 
END TF' 
NEXT 
RETURN 


KETSAN: 


M = VAL(RTGHT$ (TIME$, 2) ) 
S = VAL(MTD$ (TIME$, 4, 2) ) 
T = VAL(LEFT$ (TIME$, 2) ) 
TE 中 >= 13 THEN T=mT-12 
TYP 、 還 (5 RIGM/ 中 の 
LINE (320, 200)-(XX(M) , YY(M) ), 7 
LINE (320, 200) -(XX(S) , YY(S) ) , 6 


LINE (320, 200) - (XX(TT) , YY(TT) ) , 4 
LOCATE 15, 37: PRTNT TTME$ 
LTNE (35 * 8, 14 * 16)-(45 * 8, 15 * 16) , 7, B, sH8888 
LINE (320, 200) - (XX (M) , YY (M) ) , 0 
LTNE (320, 200) -(XX(S) , YY(S) ) , 0 
LINE (320, 200) - (XX (TT) , YY(TT) ) , 0 
CIRCLE (320, 200) , 4, 4 
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2 応用 編 


第 5 章 N88-BASIC か ら の 移植 





5.1 N88-BASICo プ ログ ラム を 使う 





「 ぼ ほぼ く の プ ログ ラム は MS-DOS 版 じゃ な いか ら …… ] と 、N88-BASIC で 入力 し た 
プロ グラ ム を その まま 眠ら せ て いま せん か 。 Quick-BASIC で は 、N88-BASIC の プロ 
グラ ム を 少し 手直し する だ け で 走ら せる こと が で きま す 。 そ の 場合 も MS-DOS の シ 
ステ ム デ ィ ス ク を も っ て いる 人 は 、 特 別 の 出費 も 知識 も 必要 と し ませ ん 。 せ っ か く 、 
PC-9801 で プロ グラ ム を 入力 し た 人 は その 資産 を 。 ま た 、 先 輩 語 氏 が 書い て くれ た 
BASIC の 書籍 を も っ て いる 人 は 、 書 籍 の 資産 を その まま 生か し まし ょ う 。 


1 N88-BASIC は アス キーSAVE 
アス キーSAVE と は 、 茶 出版 社 の 「 標 準 保存 法 】 と いう の は 、 大 ウソ 。SAVE す 
る と き に 、 保 存する ファ イル 名 の 後ろ に ある " (ダブ プル クォーテーション ) の さら 


に あと に 、 カ ンマ を 入れ て 、 ア ルフ ァ ベ ッ ト の A (エイ ) を つけ る だ け で す 。 


SAVE "2:FTLENAME .BAS",A [リタ ー ン | 


第 5 章 N88-BASIC か ら の 移植 


この 形 で 、 プ ログ ラム を SAVE す る と 、 テ キス ト フ ァイル 形式 で 保存 され ます 。 

長い 間 、 プ ログ ラム を 保存 し っ ぱな し で 、N88-BASIC の コマ ンド を 忘れ て いる 人 が 
いら っ し ゃ る か も し れ ま せん の で 、 デ ィ ス ク の LOAD、SAVE に つい て 少し だ け 触 
れ て お きま す 。 詳し く は 、 そ れ ぞ れ の マニ ュ ア ル を ご 覧 くだ さい 。 

1 . N88-BASIC の シス テム ディ スク を ドラ イブ 1 (A で は あり ませ ん ) 

に 入れ て 、N88-BASIC を た ち 上 げ ま す 。 

2. プロ グラ ム を 保存 し て いる ディ スク を 2 (B で は あり ませ ん ) と 仮 

定 し て 、 デ ィ ス ク の 中 を 見 ます 。 


FILES 2 [| リターン | 


DDconv.n88 
RiIIG: 欄 B: 
DATALI.S1 


TAIKOU.3『 2 BUNSHO FMT 
1 





3. ドラ イブ 2 の 中 の @@@@ と いう プロ グラ ム フ ァ イル を 、 画 面 上 に 
呼び 出し ます 。 


LOAD "@888 [| リターン ] 
ファ イル 名 の 後ろ の "は 省略 で きま す 。 
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2 応用 編 
4. プロ グラ ム を 走ら せま す 。 


RUN [リタ ー ン ] 
[f・5] を 押し て も プロ グラ ム を 走ら せる こと が で きま す 。 


5. プロ グラ ム を アス キー ファ イル 形式 で 保存 し ます 。 こ の と き に 、 
拡張 子 「.BAS] を 忘れ な いよ うに し て くだ さい 。 


SAVE"8666.BAS",A | リターン] 


6. パソ コン の 電源 を 落と し て 、N88-BASIC を 終了 させ ます 。 
どう で すか 、 思 い 出 し まし た ? 


の MS-DOS で プロ グラ ム フ ァ イル を 変換 


PC-9801 が ここ まで 普及 し た の は 、 当 初 の PC-8001 の 資産 を PC-8801 に 、PC-8801 
の 資産 を PC-9801 に 受け 継げ る よう に 設計 され て い だ か ら だ と 、 私 は 思っ て いま す 。 
現に 、8 イ ンチ の ディ スク ドラ イブ は 、88 用 の も の を 今 も 使っ て いま す 。 同様 に 、 
MS-DOS シ ステ ム の 中 に は 、FILECONV.EXE と いう 、N88-BASIC か ら MS-DOS へ と 、 
MS-DOS か ら N88-BASC へ の ファ イル 変換 プロ グラ ム が あり ます 。 こ の プロ グラ ム 
を 使っ て 、N88-BASIC で 入力 し た プロ グラ ムリ スト を MS-DOS に 変換 し ます 。 


1 . MS-DOS シ ステ ム デ ィ ス ク を AF ドラ イブ に 入れ て 、MS-DOS を 起動 


させ ます 。 
2 . 最近 の MS-DOS は 、 デ ィ ス ク が 何 枚 に も 分 か れ て いま す の で 、 
FILECONV.EXE の 入っ た ディ スク を 探し て 、AF ド ライ ブ に 入れ て く 


だ さい 。 


FILECONV [リタ ー ン ] 
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SS-EHSIC =)「S-DOT 





3. 画面 に N88-BASIC => MS-DOS が 表示 され ます 。A ド F ド ライブ に MS- 
DOS で フォ ー マ ッ ト し だ ディ スク 、B ド ライ プ に N88:BASIC の プロ 
グラ ム が 入っ た ディ スク を 入れ ます 。 変換 方 法 は 、1/FILE を 選択 し 
ま ( す 。 





4 . MS-DOS、N88-BASIC の それ ぞ れ の ドラ イブ を A: あ る い は B: と 指 
定 す る と 、N88-BASIC の ディ レク トリ を 表示 し ます 。 ド ライ ブ 名 の 
後ろ の の 「:( コ ロン ) | を 忘れ な いで ! カー ソル 移動 キー で 、 ア ス 
キーSAVE し た プロ グラ ム を 選択 し ます 。 
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2 応用 編 


C の ファ イル 名 は 舌 





5 . MS-DOS の ファ イル 名 を 入力 する と 、 フ ァイル の 変換 が 開始 され 
ます 。 


ーーーーーーーーー[ NB88-BASIC => MS-DOS ] 一 ーーーー 
SRP.BRS => SRP.BRS 

J 1 S コ ー ド 変換 

K I プ KO コー ド DELETE 





5.2 先輩 の 資産 を 生か す 





本 書 で は 、 わ ず か な プロ グラ ムリ スト し か 掲載 で きま せん の で 、『BASIC で 簡単 
に で きる パソ コン 図形 処理 テク ニッ ク 』 ( 誠 文 堂 新光 社 刊 : 赤松 義幸 著 ) と いう 書 
籍 の 中 の プロ グラ ム を 使っ て 、 移 植 の 方 法 を 紹介 し ます 。 
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この 本 は 、PC-8801/mkIll、N88-BASIC 用 と し て 、 約 330 本 の 多彩 な 図形 プロ グラ 
ム が 掲載 され て お り 、 そ の プロ グラ ム の 中 か ら 、1 例 を お 借り し て 使用 し て いま す 。 
※ 本 プロ グラ ム は 、『 パ ソコ ン 図 形 処理 テク ニッ ク 』 の 112 ペ ー ジ に 掲載 。 


OUAD .CO1 - ON OUADRATTC EOUATTON 

SCREEN 2:WIDTH 80,25:CONSOLE 0,25,0 

PIT=3.14159 

INPUT "N"2N 

TH=PT* ( .5-1 /N) :A=TAN (TH) 

INPUT "B,C, 1L":B,C, 

TEF B<L*A THEN PRTNT "Can't !":GOTO 150 

M= (A^2) / (4* (B-[*) ) 

FOR AA=0 TO 2*PT* (N-1 ) /N+ .2 STEP 2*PT/N 
FOR LL=-L TO エ +4 .9999 STEP 5 


MX1=SOR ( (C-B) /M) +LL :MX2=-SOR ( (C-B) /M) +LL 


FOR X=MX2 TO MX1 STEP (MX1-MX2) /20 
Y=M* (X-LL) ^2+B :GOSUB*ROTATTON 
TEF X=MX2 THEN POINT (PX, PY) : BX=X+ (MX1 -MX2 ) : BY=Y 
LTNE- (PX, PY) 
NEXT X:X ニ =BX:Y ニ BY 
GOSUB*ROTATTON : LINE- (PX, PY) 
NEXT TLL 
NEXT AA 
END 
*ROTATTON 
PX=X*COS (AA) -Y*STN (AA) +320 
PY=X*STN (AA) +Y*COS (AA) +200 
RETURN 
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N? 1 
B, 


C,L? 199,189,2g 





第 5 章 N88-BASIC か ら の 移植 


1 赤松 氏 の プロ グラ ム の 移植 


MS-DOS の テキ スト ファ イル に 変換 し た プロ グラ ム を Quick BASIC に 読み 込ん だ 
ら 、 イ ンタ プリ タ で 実行 し ます ([SHIFTH[f・3]) 。 

最初 に 、 サ プルー チン の ラベ ル が お か し いと メッ セー ジ が 出 ま す 。N88-BASIC の 
ラベ ル は 、 ア ステ リク ス 二 ラベ ル 名 (* ラ ベル 名 ) で 、Quick BASIC の ラベ ル 名 は 、 
ラベ ル 名 士 コ ロン (ラベ ル 名 :) で す 。 


F ノ ファ イル E 2 
|199 N RDRRTI EgUaTI N は 








プロ グラ ム の 修正 は 全部 で 6 カ所 。 行 番 は その まま 生か すこ と が で きま す 。 ま た 、 
プロ グラ ム 中 に 使用 きれ て いる GOTO 文 は その まま で 有効 で す 。 


1 . 行 番 220 の *ROTATION-------- >ROTATION: 
2. 行 番 230 の POINT---ーーーー-- >PSET 

3 . 行 番 260 の *ROTATION------ >ROTATION: 
4 . 行 番 300 の *ROTATION------- >ROTATION: 
5 . 行 番 110 の CONSOLE 0.23.0----> 削 除 

6 . 行 番 110 の SCREEN 2-------- >SCREEN 0 
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2 応用 編 

この うち 、1. 3. 4. は 、 サ ブル ー チ ン の ラベ ル 名 の 指定 の 仕方 で す 。 

2 は 、 画 面 上 に 表示 する 点 (ドッ ト ) 位置 の 指定 で すか ら 、PSET を 使い ます 。 

5 は 、 画 面 の 表示 ずれ を 防ぐ た め の も の で す 。Quick BASIC で は 必要 な い の で 単 
純 に 削除 し まし た 。 

6 の SCREEN 文 は 、N88-BASIC と Quick BASIC で は 、 引 数 が 違い ます 。 正しい 引 
数 に 訂正 し ます 。 

修正 と いえ る か どう か わか り ま せん が 、 プ ログ ラム を 実行 する 前 に 画面 消去 の 
CLS を 行 番 100 の 前 に 行 番 な し で 追加 し まし た 。 


2 赤松 氏 の プロ グラ ム の 実行 


原則 と し て 、 元 プロ グラ ム に は 手 を 加え な いで 、Quick BASIC で 走る よう に 修正 
し まし た 。 い まま で 、 触 れ て いま せん で し た が 、Quick BASIC V4.2 で は 、 文 字 入 力 
の テキ スト 画面 を 20 行 に する こと が で きま せん で し た 。V4.5 か ら WIDTH を 使っ て 
変更 が で きる よう に な っ て いま す 。 
※ プ ログ ラム の アン ダー ライ ン の 部 分 が 、 修 正 ・ 追 加 ・ 削 除 さ れ た 場所 で す 。 


QUAD .CO1 - ON OUADRATITC EOUATION 
SCREEN 0: WIDTH 80, 25 
PE 34 よ 4159 
TNPUT "N": N 
生還 JPTU ま (55 = 1 /:) 1A = TAN(TB) 
TNPUT BC, 7 BC。 
TF B く エネ A THEN PRTINT "Can't !": GOTO 150 
M (AA. 2 ん (2 まま (日 一 5 衝 )) 
EOR AA 王 !(0(TOL2 ま PT (NH) / N |」2 STEE 2 * PTI/ N 
FOR LL = -1 TO + 4.9999 STEP 5 
MX1 = SOR((C - B) / M) + ILL: MX2 = -SOR((C - B) / M) + IL 
FOR X = MX2 TO MX1 STEP (MX1 - MX2) / 20 
Y=M* (X - TL) ^ 2 + B: GOSUB ROTATION: 
TEF X = MX2 THEN PSET (PX, PY): BX = ニ X+ (MX1 - MX2) : BY 
LTNE -(PX, PY) 
NEXT X: メ =BX:Y= BY 
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260 GOSUB ROTATITON: : LTNE -(PX。 PY) 
NEXT TLL 
NEXT AA 
END 
ROTATTON : 


PX =X* COS(AA) -Y* STN(AA) + 320 
PY = X* STN(AA) +Y* COS(AA) + 200 
RETURN 





23 元 プ ログ ラム に 加筆 


プロ グラ ム の 初期 値 入力 の メッ セー ジ を 日 本 語 に 書き 換え て 、 係 数 ご と に 数 値 を 
入力 する よう に 加筆 し まし た 。 さ ら に 、 表 示さ れる 線 に 色 を つけ ます 。 


!OUAD .CO] - ON QUADRATIC EOUATTON 
SCREEN 0: WIDTH 80, 25: CLS  『'CLS 追 加 
PT = 3.14159 
INPUT "分 割 数 =", N 
TH = PT * (.5 - 1 / N) : A = TAN(TH) 
INPUT "ユニ ッ ト 内 部 の 長き = ニ ", B 
INPUOT "ユニ ッ ト 外 部 の 長き =", Cc 
INPUT " 線 の 幅 = ニ ", エ 
FE B<L* A THEN COLOR 4: PRINT "内 部 と 幅 の 数 値 が 合わ な い !": COLOR 7: GOTO 150 
(A^ 2) / (4 * (6 - エ *A)) 
FOR AA = 0 TO 2* PBT* (N- 1) /N+ .2 STEP2*PT/N 
FOR LL = -L TO + 4.9999 STEP 5 
MX1 = SOR((C - B) / M) + LL: MX2 = -SOR((C - B) / M) + LL 
FOR X = MX2 TO MX1 STEP (MX1 - MX2) / 20 
Y=M* (X - LL) ^ 2 + B: GOSUB ROTATTON: 
CL = RND(1) * 6+ 1 
TEF X = MX2 THEN PSET (PX, PY): BX =X+ (MX1 - MX2): BY=Y 
LTNE -(PX, PY) , Ch 
NEXT X: X = BX:Y ニ BY 
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260 GOSUB ROTATTON: : LINE -(PX, PY), CL 
270 NEXT IL 

280 NEXT AA 

290 END 

300 ROTATTON: 

310 PX =X* COS(AA) - Y * STIN(AA) + 320 


320 PY =X* SIN(AA) + Y* COS(AA) + 200 
330 RETURN 





5.3 未完 o 表 計算 プロ グラ ム の 移植 





この プロ グラ ム は 、 セ ル 幅 と セル の 個数 を 自由 に 変更 で きる MS-DOS 版 の BASIC 
プロ グラ ム で す 。 こ の プロ グラ ムリ スト で は 、 画 面 ス クロ ー ル を 除い て 、N88- 
BASIC と Quick BASIC の 違い が すべ て 盛り 込ま れ て いま す 。 プ ログ ラム の 修正 個所 
に アン ダー ライ ン を 入れ て お きま し た 。 よく 見 比べ て くだ さい 。 


1 MS-DOS 版 BASIC の 表 作 成 プ ログ ラム 


この プロ グラ ム は 、 セ ル 幅 に 合わ せ て 、 再 い カ ー ソ ル が 移動 で きる よう に な っ て 
いま す 。 双 方向 の セル の 数 は 、120 行 の 変数 X0 で 、Y 方 向 の セ エル の 数 は 変数 YO に 代 
入 し ます 。 ま た 、 セ ル に 収め る こと の で きる 総 文字 数 の 指定 は 、 全 角 文 字数 で 、 
140 行 の DATA 文 の 中 に 書き 込ん で 指定 し ます 。 こ の と き の デ ー タ の 数 と X0 で 指定 
する 数 が 一 致す る 必要 が あり ます 。DATA の 数 が 少な いと エラ ー を 起こ す の は 、 
N88-BASIC で も Quick BASIC で も 同じ で す 。 こ の プロ グラ ムリ スト に は 、 双 方 向 、 
ある い は Y 方 向 の 合計 を 出す 計算 式 が 入っ て いま せん 。 だ か ら 未 完 な の で す 。 た だ 、 
合計 を 出す た め の セ モル に 入力 し た 数 値 デ ー タ が 、 変 数 DAV(N,YN) に 収め られ て い 
ます 。FOR.…NEXT を 使う と 、 合 計 を 簡単 に 求め あこ と が で きま す 。 

グラ フィ ックス の 中 に 表 を 入れ た の は 、 グ ラフ ィ ッ クス の 線 と 知 形 を 使っ て 、 実 
用 的 な プロ グラ ム の 参考 に な れ ば と 考え まし た 。 
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430 
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1 未 求 来 玉 玉 来 玉 玉 玉 来 玉 来 求 玉 玉 球 来 求 来 玉 玉 来 来 未 来 玉 来 率 玉 来 来 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 玉 玉 玉 玉 玉 玉 未 玉 玉 玉 玉 玉 玉 
表 作成 プロ グラ ム * 
** 1990・2・13 (C)K.ENDOW  * 
1 玉 求 玉 玉 来 来 玉 来 来 来 来 求 玉 玉 玉 玉 来 玉 玉 来 素 玉 玉 玉 玉 素 玉 末 玉 玉 玉 玉 未 来 来 来 玉 玉 玉 氷 氷 玉 玉 玉 玉 玉 玉 炒 氷 玉 来 末 玉 玉 米 玉 玉 玉 玉 玉 玉 
' 画 面 制御 と 変数 初期 値 の 設定 
CLS_3:SCREEN_3:WIDTH 80,25:CONSOLE ,,0.1 : "画面 制御 
X0=8 :Y0=1.9 : ! セ ル の 数 設定 
DTM X(X0+1 ) , U$ (X0+1) , DAV (X0, YO ) :SUKU=16 : X0=X0+1 :Y0=Y0+2:DATA 2 
DATA 2, 4, 6, 4, 2 8, 4, 4 : "セル に 入れ る 文字 数 
FOR エ =1 TO X0:READ X(T) :XE=XE+X (1 ) 
FOR J=1 TO X(TI)*2:U$ (IT) =U$ (1T)+"#":NEXT J 
NEXT :CLKX=4+X(2) :CLKY=1 


' 表 の 作成 開始 
LTNE (0, 0) - (XE*SUKU, YO*SUKO) , 4,B 


FOR エ =1 TO X0:X=X+X (1) 

TEF 1=1 THEN LTNE (X*SUKU, 0) - (X*SUKU, YO*SUKU) , 4 ELSE 240 
LTNE (X*SUKU, 0 ) - (X*SUKU, YO*SUKU) , 4 , , sH8888 

TEF T=X0 THEN 270 

TLOCATE_X*2,0 :COLOR 7:PRINT USING U$(T+1) : T: 
NEXT:LOCATE 0.0:PRTNT "1.04": 

FOR Y=1 TO YO 

TE Y=1 OR Y=Y0-1 THEN LTNE (0,Y*SUKU) - (XE*SUKU, Y*SUKU) , 4 ELSE 300 
LINE (0,Y*SUKU) - (XE*SUKU, Y*SUKU) , 4 , , sH8888 

TEF Y=Y0-1 THEN LOCATE_0.Y:PRINT "合計 :GOTO 340 

IF Y=YO THEN 340 

LOCATE 0,Y:PRINT USTNG"## す の:Y: 

NEXT 


* キ ー 操 作 と デー タ 入 力 

N=1 : YN=1 :FL=1 :GOSUB 610 

DAT$=TNKEY$ : IF DAT$="" THEN 420 

TE FL=1 AND DAT$=CHR$(sH1C) THEN GOSUB 660:GOTO 420'[ 一 ] キ ー 
TEF FL=1 AND DAT$=CHR$ (gsH1D) THEN GOSUB 700:GOTO 420'[ 一 ] キー 
TE FL=1 AND DAT$=CHR$(gH1E) THEN GOSUB 740:GOTO 420'[ 1 ] キ ー 
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460 
470 
480 
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TF FL=1 AND DAT$=CHR$(gH1F) THEN GOSUB 780:GOTO 420'[ ! ] キー 
TE DAT$=CHR$ (sHD) THEN FL=1 :GOSUB 830:GOTO 420 ! [CR] キー 
TE DAT$<"0" OR DAT$>"9" THEN 420 * [0] て [9] まで の キー 


GOSUB 840:GOTO 420 


1 

"青色 カ ー ソ ル の 表示 と 消去 人 ( サ プ ・ ル ー テ ィ ン )》 

LTNE (XN*16+33, YN*16+1 ) - ( (XN+X (N+ 1 ) ) *1 6+31 , (YN+ 1 ) *1 6-1 ) , 1 , BF : RETURN 
LTNE (XN*16+33, YN*1 6+1 ) - ( (XN+X (N+ 1 ) ) *16+31 , (YN+1 ) *1 6-1 ) , 0, BF : RETURN 
1 

' カ ー ソ ル 位 置 の 計算 式 (サブ プ ・ ル ー テ ィ ン ) 

'! カ ー ソ ル 右 へ の 移動 計算 

GOSUB 620 :N=N+1 : XN=XN+X (N) 

TE N>=XO THEN N=1 : XN=0 :X (N) =X (N) : BEEP 

GOSUB 610:RETURN 

' カ ー ソ ル 左 へ の 移動 計算 

GOSUB 620 :N=N-1 : XN=XN-X (N+ 1 ) 

TEF N<= 0O THEN XN=-2 :N=X0-1 :FOR JJ=2 TO XO:XN=XN+X (JJ-1 ) : NEXT : BEEP 
GOSUB 610:RETURN 

'! カ ー ソ ル 上 へ の 移動 計算 

GOSUB 620 :YN=YN-1 

TEF YN<=0 THEN YN=Y0-2:BEEP 

GOSUB 610:RETURN 

"カー ソル 下 へ の 移動 計算 

GOSUB 620 :YN=YN+1 

TF YN>=Y0-1 THEN YN=1 :BEEP . 

GOSUB 610:RETURN 

"数値 入力 の 決定 と 入力 数 値 の 表示 ( サ プ ・ ル ー チ ン 》 

DATT$="":GOSUB 660:RETURN 

FL=0 :DA$=RTGHT$ (DAT$, 1 ) 

DATT$=DATT$+DA$ 

LOCATE XN*2+4 , YN:PRINT DATT$:DAV (N, YN) =VAL, (DATT$) :RETURN 

END 
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グ カー ソル 移動 キー は 、2 バ イト コー ド 


N88-BASIC か ら Quick BASIC へ の 移植 時 の 注意 点 は 、 ヘ ルプ 画面 ff・1] で 見 る こと 
が で きま す (画面 は V4.2) 。 た だ し 、 こ こ で は 、 カ ラー コー ド に つい て は 触れ て い 
ませ ん 。 第 1 章 の 図形 を 描く た め の 基 本 的 な 命令 を 参照 し て くだ さい 。 


FZ フ ァ ル EZ 編集 ツン 素 示 5S/ 様 索 R ン 実行 D7 デ が ッ ク の 関数 HAL プ ”(f・1 
ニ 明 
| KYED: キー ボー[| 
64Qdx2M) CRN: 画面 
64Mx4MM) | fn: ド R 2C ボ 
0 
: 標準 出 ナ 








ム N88BASIC と は 、MS-DOS 版 の こと で す (V4.2 の ヘル プ 画 面 ) 
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マヤ 特殊 キー は 、2 バ イト コー ド に な っ て いま す (V4.2 の ヘル プ 画 面 ) 


EEESSew | 貞 5 
K ン キー ワー | | 取 肖 








MO91: 





Quick BASIC へ の 移植 の と き に 、[HOME] キ ー を 押す と 、 計 算 サ ブ プルー チ ン ヘ へ ジ 
ャ ンプ する よう に 、 プ ログ ラム が 書き 加え られ て いま す 。 ヘ ルプ 画面 で 特殊 キー の 
戻り 値 は 、2 バ イト 文字 で 返さ れる と 書い て あり ます 。 


2 バイ ト 文 字 の 表示 の 仕方 は 、 次 の よう な 方 法 が 使え ます 。 





HELP 画 面 IF A$=CHR$ (00,sH47) 
$=CHRS$ (0, ) 
ト 入力 し て も 0 と な り ま す 3 
$ R$ ( ) 
$ $ ( ) ) 


] 0 「 ま 玉 玉 玉水 玉 来 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 米 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 氷 来 来 玉 玉 来 ※ 来 玉 来 来 来 玉 来 玉 玉 玉 玉 玉 玉 求 来 来 玉 求 未来 ※ 来 氷 氷 玉 玉 玉 玉 


20 su 表 作 成 プ ログ ラム * 
30 9 江 1990・1・13 (C) K.ENDOW 


4 (0 『! ※ 玉 玉 玉 玉 玉 玉 来 求 玉 玉 来 求 玉 玉 求 玉 来 玉 来 玉 玉 来 玉 玉 玉 来 来 玉 来 玉 玉 玉 来 来 玉 玉 玉 玉 来 玉 玉 玉 玉 求 玉 玉 来 玉 玉 来 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 


100 "画面 制御 と 変数 初期 値 の 設定 

110 CLS : SCREEN 0: WITDTH 80, 25: "画面 制御 

120 7X0 生 | 7s9 光 0' 手 )6cY GE 所 WZ , セ モル の 数 設定 

130 DTM X(X0 + 1), U$ (X0 + 1) , DAV(XO + 1, YO + 1) : SUKU = 16: X0 =X0+ 1: YO =YO+ 1: DATA 2 
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140 DATA 2, 4, 6, 4, 2, 8, 4, 4 : "セル に 入れ る 文字 数 
150 FOR 1 = 1 TO X0: READ X(1) : XE = XE + X(1) 

160 FOR J = 1 TO X( エ ) * 2: U$(1) = U$(T) + "#": NEXT J 

170 NEXT: CLKX = 4 + X(2) : CLKY = 1 

200 " 表 の 作成 開始 

210 LINE (0, 0)-(XE * SUKU, YO * SUKO) , CEL, B 

220 FOR 1 = 1 TO XO0: X= ェ X+ X(1) 

230 1F 1 = 1 THEN LINE (X * SUKU,。 0)-(X * SUKU, YO * SUKU) , CEL ELSE 240 
240 LINE (X * SUKU。 0)-(X * SUKU, YO * SUKU) , CEL, , sH8888 

250 ITF 1 = XO THEN 270 

260 LOCATE 1, X * 2: COLOR 7: PRINT USING U$(T + 1): 1: 

270 NEXT: LOCATE 1, 1: PRINT "1.04": 

280 FOR y = 1 TO Y0 

290 IF y = 1 OR y = YO - 1 THEN LINE (0, y * SUKU)-(XE * SUKU。 y * 
SUKU) , CEL ELSE 300 

300 LINE (0, y * SUKU)-(XE * SUKU, y * SUKU) , CEL, , &H8888 

310 ITF y = YO THEN LOCATE y, 1: PRINT "合計 ", : GOTO 340 


I 


320 TEF y = YO THEN 340 
330 LOCATE y + 1 1: PRINT USTNG "#### り 7 yz 
340 NEXT 


400 "キー 操作 と デー タ 入 力 
410 N= 1: YN= 1: FL = 1: GOSUB 610 
420 DAT$ = INKEY$: TEF DAT$ = "" THEN 420 
TF FL = 1 AND DAT$ = CHR$ (0, sgH47) THEN GOSUB KEISAN: "HOME 
430 TEF FL = 1 AND DAT$ = CHR$(0, sgH4D) THEN GOSUB 660: GOTO 420" ト ] キー 


440 TEF FT = 1 AND DAT$ = CHR$(0, gsH4B) THEN GOSUB 700: GOTO 420'[ 一 ] キ ー 
450 TEF FL = 1 AND DAT$ = CHR$(0, sH48) THEN GOSUB 740: GOTO 420'[†] キー 
460 TF FL = 1 AND DAT$ = CHR$(0, sH50) THEN GOSUB 780: GOTO 420'[!] キー 
470 TF DAT$ = CHR$(sHD) THEN FL = 1: GOSUB 830: GOSUB SYOKYO: : GOTO 
420' [CR] キー 

480 IF DAT$ < "0" OR DAT$ > "9" THEN 420 ! [0] ~ [9] ま で の キー 


490 GOSUB 840: GOTO 420 

600 "青色 カー ソル の 表示 と 消去 人 ( サ プ ・ ル ー テ ィ ン )》 

610| TINE (XN や 16 よ 33, YN * 16 + 1)-((XN + X(N 1)) キ 16 + 31。 (YN + 
1) * 16 - 1), 1, BF: RETURN 

620 呈 JNE (XN * 16 + 33。YN * 16 + 1)-((XN + X(N + 1)) ま 16 + 31, (YN + 
1) * 16 - 1), 0, BEF: RETURN 
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630 
640 
650 
660 
670 


720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
830 
840 
850 
860 


1 
! カ ー ソ ル 位 置 の 計算 式 ( サ プ ・ ル ー テ ィ ン )》 

カー ソル 右 へ の 移動 計算 

GOSUB 620: N =N+ 1: XN = XN + X(N) 

TE N >= XO THEN N = 1: XN = 0: X(N) = X(N) : BEEP 

GOSUB 610: RETURN 

'! カ ー ソ ル 左 へ の 移動 計算 

GOSUB 620:N=N- 1: XN=XN-X(N+ 1) 

TE N <= 0 THEN XN = -2: N = XO - 1: FOR JJ = 2 TO X0: XN = XN + X(JJ 
ー 1) : NEXT: BEEP 

GOSUB 610: RETURN 

' カ ー ソ ル 上 へ の 移動 計算 

GOSUB 620: YN =YN- 1 

TF YN <= 0 THEN YN = YO - 2: BEEP 

GOSUB 610: RETURN 

! カ ー ソ ル 下 へ の 移動 計算 

GOSUB 620: YN =YN+ 1 

TE YN >= YO - 1 THEN YN = 1: BEEP 

GOSUB 610: RETURN 

' 数 値 入力 の 決定 と 入力 数 値 の 表示 (サブ プ ・ ル ー テ ィ ン ) 

DATT$ = "": GOSUB 660: RETURN 

FL = 0: DA$ = RIGHT$ (DAT$, 1) 

DATT$ = DATT$ + DA$ 

LOCATE YN + 1, XN * 2 + 5: PRTINT DATT$: DAV(N, YN) = VAL(DATTS) : 


RETURN 


870 


END 


FKETSAN: 


LOCATE YO + 2, 5: PRINT "計算 サブ ルーチン " 


RETURN 
SYOKYO: 


LOCATE YO + 2,。 5: PRINT " 


RETURN 
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3 特殊 キー を 使っ た 、 模 擬 カ ー ソ ル の 移動 


カー ソル の 形 は 、" 護 "を 使い ます 。 カ ー ソ ル の 1 文字 ずつ の 上 下 左 右 の 移動 、 カ 
ー ソ ル 移 動 キ ー を 使い ます 。 カ ー ソ ル を 画面 の 中 央 、 白 い マ ー ク の 位置 は 通過 で き 、 
その ほか の 壁 で は 通過 で きま せん 。 た だ し 、[HELP] キ ー を 押す と 通過 で きる と い 
の は どり で し まう 。 


'PR520 .BAS 
SCREEN 0: CLS 
FOR X1 = 0O TO 480 STEP 32 
LINE (X1, 0)-(X1 + 32, 16) , 7, B 
PATNT (X1 + 1, 8), CHR$(sH2) + CHR$(gHO) + CHR$(sH77), 7 
LTNE (X1, 0)-(X1 + 32, 16), 0, B 
LTNE (X1, 320) -(X1 + 32, 336), 7。 B 
PATNT (X1 + 1, 321) , CHR$(sH2) + CHR$(sHO) + CHR$(sH77), 7 
LTNE (X1, 320) -(X1 + 32, 336) , 0, B 
NEXT 
FOR Y1 = 16 TO 304 STEP 16 
LINE (0, Y1) -(24, Y1 + 16), 7, B 
PATNT (2, Y1 1) , CHR$(sH2) + CHR$ (gsHO) + CHR$(sH77), 7 
LINE (0, Y1) -(24, Y1 + 16), 0, B 
LTNE (488, Y1)-(512, Y1 + 16), 7, B 
PATNT (489, Y1 + 1), CHR$(sH2) + CHR$(sHO) + CHR$(sH77), 7 
LINE (488, Y1) -(512, Y1 + 16), 0, B 
NEXT 
LINE (8 * 29, 10)-(8 * 31, 16) , 7, BF 
LTNE (8 * 29, 320)-(8 * 31, 326) , 7。 BEF 
1TNE (18, 16 * 10)-(24。 16 * 11) 。 7。 BF 
LTNE (489。 16 * 10)-(496。 16 * 11) , 7。 BF 
CXS = 4: CXE = 60: CX = 30: CYS = 2: CYE = 20: CY = 10 
KICSBD OiW 
LOCATE CY, CX: PRINT ST$: 
HOGAWE。 1 668 PRTNWA ウ (ソー ププ マン “ 
LOCATE 5, 72: PRINT "上 " 
LOCATE 6, 72: PRINT "1" 
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LOO 
END 
UPs 


LOCATE 7, 68: PRINT " 左 一 太一 右 " 
LOCATE 8, 72: PRINT "1!『 

LOCATE 9, 72: PRINT " 下 " 

LOCATE 11, 66: PRINT " 較 … ワ ー プ " 
LOCATE 12, 66: PRINT "[HELP]… ワ ー プ " 


ANS$ = INKEY$ 
TF ANS$ = CHR$(0, sH4F) THEN TEF = 1 
TF ANS$ = CHR$(0, &sH48) THEN GOSUB UP: 
TEF ANS$ = CHR$(0, &H50) THEN GOSUB DOWN: 
TF ANS$ = CHR$(0, sH4D) THEN GOSUB RIGHT: 
TF ANS$ = CHR$(0, sH4B) THEN GOSUB LEFT: 
TF ANS$ = "E" THEN END 
LOCATE CY, CX: PRINT ST$: 

P 

GOSUB STB: 

CYP= (CV まこ 。 池 

TF CY < CYS AND (TE = 1 OR CX = 30) THEN 


CY = CYE 

ELSETF CY < CYS AND TF = 0O THEN 
BEEP: CY = CYS 

END TF 

TF =0 

RETURN 


DOWN: 


RTG 
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GOSUB STB: 

CV (ほや Y。 所 1 

TE CY > CYE AND (TEF = 1 OR CX = 30) THEN 
CY = CYS 

ELSETE CY > CYE AND TF = 0O THEN 
BEEP: CY = CYE 

END ITF 

TE =0 

RETURN 

HT * 
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GOSUB STB: 
CX = CX + 1 
TE CX > CXE AND (TEF = 1 OR CY = 11) THEN 
人 6760 生 RGXS 
ELSETF CX > CXE AND TF = 0 THEN 
BEEP: CX = CXE 
END TF 
TER !=10 
RETURN 
LEFT: 
GOSUB STB: 
CX =)CX = 1 
TF CX < CXS AND (TEF = 1 OR CY = 11) THEN 
GXL 呈 ! 6XE 
ELSETEF CX < CXS AND TF = 0 THEN 
BEEP: CX = CXS 1 
END TF 
TEF = 0 
RETURN 
STB: 
LOCATE CY, CX: PRINT SB$ 
RETURN 


KETSAN: 
M = VAL(RTGHT$ (TIME$, 2) ) 
S = VAL.(MTD$ (TIME$, 4, 2) ) 
T = VAL(LEFT$ (TIME$, 2) ) 
TFT>=13THENT=TY- 12 
RE GT 9 圭 5 りん 1 の 
LTNE (320, 200) - (XX (M) , YY (M) ) , 7 
LINE (320, 200) - (XX(S) , YY(S) ) , 6 


LINE (320, 200) -(XX(TT) , YY(TT) ), 4 
LOCATE 15, 37: PRINT TITME$ 
LTNE (35 * 8, 14 * 16)-(45 * 8, 15 * 16) , 7, B, gsH8888 
LTNE (320, 200) - (XX(M) , YY (M) ) , 0 
LTNE (320, 200) -(XX(S) , YY(S) ) , 0 
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LTNE (320, 200) -(XX(TT) , YY(TT) ) , 0 
CIRCLE (320, 200), 4, 4 


MINIMNHNNMIHMMUIHIHUNNHNHNUNNNNNNMM HTC 


還 … ワ 
【HELP]・ 


l 
| 
M 
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Quick BASIC 


付 録 








付 録 


付録 1 Ozz& 457C【 プ 2 の セッ 人 アッ プ 





1.1 Quick BASIC に 入 っ てい ぃ いる ファ イル 





Quick BASIC に は 、2 枚 の フ ブ フロッピー ディス ク が ハー ド ケ ー ス に 入っ て いま す 。1 
枚 に は 、『 プ ログ ラム ディ スク 』 と 書か れ て お り 、 も う 1 枚 の ほう の フロ ッ ピ ー デ 
イス ク に は 、『 ラ イブ ラリ 必 サ ンプ ルプ ログ ラム | と 書か れ て いま す 。 そ れ ぞ れ の 


ディ スク に は 、 次 の よう な ファ イル が 収納 され て いま す 
ll プロ グラ ム デ ィ ス ク 
プロ グラ ム デ ィ ス ク の 中 は 、3 つ の 階層 ディ レク トリ と $ つ の ファ イル か ら な っ て 


いま す 。 フ ァイル の タイ ム ス タ ン プ は 、 す べ て の ファ イル が 4:20 に な っ て いま す , 
これ は 、Quick BASIC の バー ジョ ン を 表わし て いま す 


ル は さ QB42_NO1 


(311 
SRIPLE 


176128 


LC CO Wo 上 | 0 関 題 い DWhuu Wit FEr = 





226 


OB ENV ディ レク トリ (統合 環境 ) 
MOUSE .COM マウ ス ド ラ イ バ (常駐 型式 ) 
MOUSE.SYS マウ ス ド ラ イ バ 
OB .BI OuickBASIC ヘ ッ ダ ー フ ァイル 
OB .EXE OuickBAS1C 本 体 
OB .HLP ヘル プ フ ァ イ ル 
OB. INT イニ シャ ルフ ァイル 
OB.PTF MS-WTNDOWS 2.0 用 Picture Fi1e 

OB CMP ディ レク RU (コンパ イラ ) 
BC.EXE EASTC Compi1er 
BRUN42A.EXE ラン タイ ム モ ジュ ー ル (FPA) 
BRUN42E.EXE ラン タイ ム モ ジュ ー ル (FP1) 
LTB.EXE ワイ プシ 
LTNK.EXE リン カ 


LTB E イレ ウス (RUN(PPn タ 4 プラ 9 
BCOM42E.LTB スタ ン 、R0 思 シラ イガ グル (EBS) 
BRUN42E.LTB 分 離 型 ラ イプ ラリ (FP1) 


ょ 
SETUP .DOC ネ ※ ネ セット アッ プ の 説明 


SETUP .EXE セツ (トド 7w み ププ ログ ラム 
PACKTNG .LST 玉 パ ッ キ ング リス ト 

README .DOC マニ ュ ア ル の 追加 付加 情報 
SAMPLE .DOC ネ ※ ネ サン プル プロ グラ ム の 説明 





* 還 の ファ イル は 、TYPE ファ イル 名 . 拡 張子 [リタ ー ン ] で 内 容 を 見 る こと が で 
きま す 。 
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付 録 


グ 


ーー 








ライ ブラ リ & サ ンプ ルプ ログ ラム ディ スク 


ライ ブラ リ と サン プル プロ グラ ム が 入っ て いま す 


1 Cl WU (0 上 5| UI 


LTB A 


BCOM42A.LTB 
BOLB42 .LTB 
BRUN42A.LTB 
OB .LTB 
OB .OLB 


SOURCE 
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BAR . BAS 
CAL . BAS 
CCALL .C 
CCALL .OLB 
CCALL . BAS 
COLOR . BAS 
CRLE'.BAS 
CUBE . BAS 


ディ レク トリ (EpPA ラ イプ ブラリ) 
スタ ンド アロ ン ラ イプ ブラ リ (EpPA) 
orB 構築 ライ プラ リ 

分 離 刑 ライブ ラリ (FpPA) 

ラグ ジリ 


Quick ラ イブ プラ リ 


ディ レク トリ (サン プル ソー ス ) 
棒グラフ 

2 レグ 

Cc の 呼び 出し 

C の 呼び 出し 

C の 呼び 出し 

色 の 表示 

グル ター 
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DISPLAY .BAS ファ イル の タイ プ 

DRAW.BAS お 絵 書き 

EDTT .BAS 文字 入力 &FEP ON/OFF 
EDIT.BT EDIT.BAS 用 の ヘッ ダー ファ イル 
EDPAT .BAS タイ ル パ タ ー ン エディ タ 

GET .BAS POT/GET の 例 

HANOI .BAS ハノイ の 塔 

TNDEX .BAS 簡易 デー タベース 

MANDEL . BAS マン デル プロ ー ト セッ ト 
PALETTE .BAS パレ ッ ト 文 の 例 

PSETBALL,.BAS Ba11 の 跳ね 返り 

OBL .BAS コン パイ ラド ライ バ ( コ ン パ イル 人 後 利用 ) 
OLBDUMP . BAS orB 内 容 表示 

SEARCH .BAS 文字 検索 

STERP . BAS シェ ルビ ピン スキ ー 有 曲線 

STNWAVE .BAS 届い の ジウ ペグ 

STRTONUM.BAS 数 値 変換 

STYLE .BAS ライ ンス タイ ル 

TERMINAL .BAS ーー ミナ ルツ フト 

WHERETS . BAS ファ イル 検索 

ABSOLUTE .ASM アセ ンプ リソー ス 

TNTRPT . ASM 沈 や ンプ リツ ズ 

GCOPY . BAS グラ フィ ッ ク 画 面 印字 プロ グラ ム 





1 .2 Quick BASICo ワ ー ク ディ スク を 作る 





Quick BASIC の セッ ト ア ッ プ ユー ティ リティ (SETUP.EXE) を 使え ば 、 自 分 の デ 
ィ ス ク に ワー ク デ ィ ス ク を 作る こと が で きま す 。 そ の た め に は 、 い くつ か の 前 準備 
が 必要 で す 。 
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付 録 


1] MS_-DOS で フォ ー マ ッ ト 


Quick BASIC を 動か す た め に は 、 新 し く 用 意 し た な フロッピー ディ スク に 、MS- 
DOS の シス テム と Quick BASIC の シス テム を 組み 込む 必要 が あり ます 。 こ の 、 新 し 
い シ ステ ム の ディ スク を 作る 作業 を セッ ト ア ッ プ 、 ま た は イン スト ー ル と いい ます 。 
本 書 で は 、 セ ッ ト ア ッ プ と いう 言葉 を 使っ て きま し た 。 

な お 、 使 用 し て いる ディ スク の 種類 (IMB、640KB の フロ ッ ピ ー デ ィ ス ク 、 ハ ー 
ド デ ィ スク な ど ) に よっ て 、 組 み 込 め る ファ イル の 数 や ディ レク トリ の 作り 方 が 変 
わっ て きま す 。 本 書 で は 、PC-9801Vm2 を 使っ て いる 関係 か ら 、1MB の フロ ッ ピ ー 
ディ スク を 中 心 に 話 を 進め ます 。 

まず 、 こ れ か ら 自 分 が 使用 する 新しい フロ ッ ピ ー デ ィ ス ク に MS-DOS の シス テム 
を 乗せ ます 。 そ の た め に 、 フ ォ ー マ ッ ト と シス テム の コピ ー を 行ない ます 。 こ れ を 
一 度 に 行なっ て くれ る MS-DOS の コマ ンド が FORMAT/S で す 。 

それ で は 、MS-DOS を 起動 きせ た あと 、 画 面 に A> (エー プロ ンプ ト ) が 表示 され 
た 状態 に し ます 。 画面 に 、MS-DOS の メニ ュー 画面 が 出 て いる と き に は 、[STOP] キ 
ー を 押し て 、A> の 状態 に し ます 。 

ドラ イブ プ B に 、 こ れ か ら 使 う 新 し い フ ロッ ピー ディ スク を 入れ ます 。 


A>FORMAT/S B: [リタ ー ン ] 


グ MS-DOS の 外部 コマ ンド の コピ ー 


MS-DOS の 外部 コマ ンド で 必要 な も の を コピ ー し て お きま す 。 ま ず 、 フ ォ ー マ ッ 
ト 用 の FORMAT.EXE (MS-DOS の バー ジョ ン に よっ て は 、FORMAT.COM) で す 。 
本 書 で 使用 し いる MS-DOS Ver.3.3 は 、PRINT.SYS が 必要 な の で 、 こ れる も 同時 に コピ 
ー し ます 。MS-DOS の バー ジョ ン に よっ て 、PRINT.SYS を 必要 と し な いも の も あり 
ます 。 
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付 録 


R>COPY Rn:FORIRT.EXE B: が 
イル を コピ ー し まし た . 


loed 時 : 3 の 


| Ci 上 Cu co WS1 SU 





4COPY A:FORMAT.EXE B: と COPY A:PRINT.SYS の 画面 





1.3 セッ ト ア ッ プ 





Quick BASIC の セッ ト ア ッ プ を 行ない ます 。 ま ず 、 ド ライ ブ A に 、Quick BASIC の 
プロ グラ ム デ ィ ス ク を 入れ ます 。 


|] [セットアップ ユー ティ リティ 」 の 起動 
起動 の 仕方 は 、 


SETUP [リタ ー ン 
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ッ プ ユー ティ リティ の 説明 が 、3 画 面 分 表示 され ます 。 そ れ ぞ 
れ の 画面 を 試 わっ た ら 、[STOP] キ ー と [ESC] キ ー 以 外 の 何 か の キー を 押し ます 。 
し て 、[ ス ペー ス ] キ ー か 、 [リターン] キー を 押す よう に し まし ょ う 


【 何 か キ ー を 押し て 下さ い 】 
1 Ci 上 (CU 0 眼 | 上 SUl 


| C1 上 CU 上 Co 上 S1 上 SU l 





Qui ckBASIOC セッ ト ア ッ プ ユー ティ リティ 
ーー フロ ント プロ セッ サ の 組み 込み ーー- 


1 
RERD EE.DOC を 


な お 、RERDIE.DOC に は 補足 の 情報 や 
うお 願い し ます 。 


【 何 か キ ー を 押し て 下さ い 】 


nu ol il | 較 ne Wi: ME -| 





いよ いよ 、 セ ッ ト ア ッ プ の 開始 で す 。 画面 上 に メッ セー ジ が 表示 され 、 質 問 に 
Yes、No で 、 答 えて いく と 自動 的 に セッ ト ア ッ プ が 行なわ れ ま す 。 


QuickBASIC セッ ト ア ッ プ ユー ティ リティ Ver1。.00 
セッ ト ア ッ プ を 開始 し ます か [YAN] ? Y 


ツ + 
く は S 生 OP キ ー を 押し た 


{ し る から 9 定 を や ツ 直 
を 変 た い 場 合 も 、 
を し た いい 


LC 0 oo 上 | | 還 還 ODM MI FE W < | 
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付 録 


[Y] 、 [N] の あと は 、 ド ライ ブ B に ファ イル の コピ ー が 開始 され ます 。 途 中 で 


フロ ッ ピ ー デ ィ ス ク を 抜か な いよ うに 


ドラ イブ B に ワ 
【 何 か キ ー 


Eurok 且 


Ri:\GB_ENUFGB.EXE 一 ->B: INfQGB.EE 


ri ul no | | 関 呈 の UMNML MI FEF  - | 


ゝ て 、 ラ イブ ラリ ディ スク を AF ドラ イブ に セッ ト す る よう に 指示 が あり ます 。 
ディ スク を 差し 替え を た ら 、 [STOP] キー 以外 の 「 何 か の キー| を 押し ます 。 


LC 上 CU 上 0 眼 :1 眼 SU 





付 録 


ライ ブラ リ デ ィ ス ク の ファ イル の コピ ー が 終了 する と 、 セ モ セットアップ が 自動 的 に 
終了 し て 、 メ ッ セ ー ジ が 表示 きれ ます 。 


以上 で セッ ト ア ッ プ を 終了 し ます 。 


羽 


【 と ご 3F 


に 】 


pI が や マデ 


DI-。 の ( ロ テ ュ ン ロ の 
仙 いい 


ap( や NN 3)] 


SL@) 
YO 〇 りー の 〇 


ーS③\ い の ニン と 湾 


論 さ て 【ー 


ジジ 1 ロロ ( OWー 
柄 ボ 
NN 
に 4 
恋 


コミ ヘス ーーWDm 


スク の 場 全う DOC 

g 有 備 に Qu i ickBAS 1C を セッ ト ア ッ プ し た ディ レク トリ に 
下 を 実行 し て 下さ い 。 

R> TYPE RERDNE.DOC 


パワ ゴリ 5 と だせ さき 9O 研 


u 
載 
フ 
ピル 
E 
了 
8 
に 2 
回 
ト e) 
動 


人 
で | 古 
党 O よ させ OK 


ゞ 


ri WU no 上 | | 還 還 UMut MI: MFEr W - | 





以上 で 、 セ ッ ト ア ッ プ は 終了 で す 。 画面 上 で 、README.DOC を 見 る よう に 注意 
が 表示 され て いま す 。 [CTRL] キー を 押し た まま [S] キー を 押す と README. 
DOC の 画面 を 停止 きせ る こと が で きま す 。 再 スタ ー ト は 「 適 当 な キー| を 押し て 
くだ さい 。 再 び 停止 さき せ る と き は 、 [CTRL] 十 [S] キー で す 。 


の 


う ワー ク デ ィ ス ク の 内 容 
ワー ク デ ィ ス ク の 内 容 を 見 る と 、 次 頁 の よう な 構成 に な っ て いま す 。 


ファ イル 名 の 頭 に OB の つい た ファ イル は イン ター プリ タ 用 、BC が つい て いる フ 
ァイル は コン パイ ラ に 必要 な ファ イル で す 。 
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R>DIR B: 


レ ソ は 
FORIT 
9 


ri WU Wo | :U 関 呈 0DWu Mi: FEr W -| 


BIN <DIR> 
OB .EXE OuickBASIC イ ンタ ー プ リタ 
OB .HLP OuickBASIC ヘ ルプ ファ イル 
OB. TNI ※ ouickBASTC 画 面 情報 
OB.BT ※ OB.OLB 用 イン クル ー ド ファ イル SOURCE 
MAUSE .COM マウ み 炎 ドブ プイ バ パー 
BC .EXE ペー ジッ ツ 多 ロ ロジ パ イ ラ 
LTB .EXE イア フリ アン 
LINK .EXE リン カ 9 シソ ャ イド テ 
BRUN42A.EXE ラン タイ ム モ ジュ ー ル (EPA) コン パイ ラ 
LTB <DIR> 
BCOM42A.LTB スタ ンド アロ ン ラ イブ ラリ (ALT-MATH) (パパ イジ 
スタ ンド アロ ン gxE フ ァイル を 作成 時 に 必要 
BRUN42A.LTB ラン タイ ムラ イブ ラリ (ALT-MATH) 2 ンカ 
BOLB42 .LTB orB 構築 ライ ブラ リ コン パイ ラ 
OB .LTB ※ デフ ォ ル トラ イプ ラリ 
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OB .OLB ※ デフ ォ ル ト ouick ラ イブ ラリ 


COMMAND .COM MS-DOS の シス テム 本 書 は 、Ver.3.3 使 用 
FORMAT .EXE MS-DOS の 外部 コマ ンド 


PRTNT .SYS プリ ンタ ドラ イ バ 

README .DOC ※ マニ ュ ア ル の 追加 付加 情報 

CONFTG.SYS シス テム の コン フィ ギュ レー ショ ン フ ァイル 
AUTOEXEC .BAT プロ グラ ム 自 動 実行 用 バッ チ フ ァイル 





※ 印 の ファ イル は 、Quick BASIC の 作動 に は 、 直 接 関係 あり ませ ん 。 フ ロッ ピー デ 
ィ ス ク の 容量 不足 で 、 緊 急 か つ 、 ニ ッ チ も サッ チ も いか な く な っ た と き に は 削除 
で きま す 。 


44 CONFIG.SYS と AUTOEXEC.BAT 


セッ ト ア ッ プ の 終了 し た ファ イル を 見 る と 、 新 た に CONFIG.SYS と AUTOEXEC. 
BAT と いう ファ イル が 増え て いま す 。 

CONFIG.SYS は 、MS-DOS を 起動 し た と き に 、 ル ー ト ディ レク トリ に ある と 、 フ 
ァイル の 内 容 に し た が っ て 、 デ バイ ス ド ラ イ バ の 登録 や バッ ファ の 大 き さ の 設定 な 
どの シス テム を 構築 し て くれ ます 。 

簡単 に いう と 、 デ ィ ス ク ド ラ イブ や プリ ンタ 、 画 面 な ど と の や り 取 り を 設定 する 
ファ イル と 考え て くだ さい 。 セ ッ ト ア ッ プ する と き の 条 件 で 変わ っ て きま す が 、 マ 
ニュ アル どおり に セッ ト ア ッ プ を 行なう と 、 次 の よう に 設定 され て いま す 。 
CONFIG.SYS の 内 容 を 見 る と き に は 、MS-DOS の 内 部 コマ ンド TYPE を 使い ます 。 

また 、 本 書 で 使っ て いる MS-DOS の 場合 は 、PRINT.SYS を 使う の で 、CONFIG. 
SYS に 追加 し て 書き 加え ます 。CONFIG.SYS の 書き 換え に は 、COPY コ マン ド を 使 
いま す 。 

1 行 の 入力 が 終了 する と [リターン ] キー を 押し て 改行 し ます 。 
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付 録 


Mu - 才 0、 ゴ い 信 さ ) 
FILES=2g 
BUFFERS=2g 


CON CONFI.SYS 


ァイル を コピ ー し まし た . 





最後 に 、[CTRL] キ ー を 押し な が ら 、[Z] キ ー を 押す と 、CONFIG.SYS の 書き 換え 
が 親 し ます 

また 、AUTOEXEC.BAT は プロ グラ ム を 自動 実行 する バッ チ フ ァイル で す 。 中 身 
は 、 次 の よう に な っ て いま す 。 こ この 息 階 で は 、 書 き 換え 作業 は 行ない ませ ん 
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1 .4 ATOK6 を 組み 込む 





Quick BASIC は 、 こ の まま で は 日 本 語 の 入力 が で きま せん 。 
その た め に 、「 一 太郎 」 の 日 本 語 フ ロン ト エ ンド プロ セッ サ で ある ATOK6 を 使 
を る よう 民代 ます 。 


1. 「 一 太郎 」 を 起動 し て 、 終 了 さ せま す 。 

2. ドラ イブ プ A に 、「 一 太郎 」 付属 の ユー ティ リティ ディ スク を 入れ 
ま 79re 

3. ドラ イブ B に 、Quick BASIC の ワー ク デ ィ ス ク を 入れ ます 。 

4. キー ボー ド か ら 、ATUT [リタ ー ン ] と 打ち 込み ます 。 画 面 上 に 、 
ATOK6 の 環境 登録 ユーティリティ が 表示 され ます 。 カ ー ソ ル 移 動 キ 
ー を 使っ て 、 項 目 の 設定 を 行ない ます 。 


設定 の 内 容 は 、 辞 書 、 外 字 フ ァイル を ドラ イブ B、 日 本 語 の 入力 位置 を Quick 


BASIC の カー ソル の ある 位置 (エコ ー) と し まし た 。 書き 換え る CONFIG.SYS は 、 
ドラ イブ プ B の ワー ク デ ィ ス ク で すか ら 、B を 指定 し て 、 [リタ ー ン ] キー を 押し ま 


マウ ス ド が ライ アイ バ の 列 契 方 法 





Quick BASIC4.35 の マウ ス ド ラ イ バ に は 、 切 り 離 すこ と の で きる 常駐 プロ グラ ム 
MOUSE.COM と 、CONFIG.SYS に デバ イス ドラ イ バ と し て 組み 込む MOUSE.SYS が 
あり ます 。 

どちら か の ファ イル を 組み 込め ば マウ ス が 利用 で きま す . 
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付 録 


1 MOUSE.COM の 組み 込み 


MOUSE.COM は 、 常 駐 型 の マウ ス ド ラ イ バ で 、 マ ウス イン ター フェ イス に マウ 
ス を つない で 利用 する 場合 (バス マウ ス の 場合 ) は 、 


MOUSE [リタ ー ン | 
で 使い ます 。 ま た 、RS-232C 用 の マウ ス (シリ アル マウ ス ) の 場合 は 、 
MOUSE /C [| リターン] 
で 、 使 うこ と が で きま す 。Quick BASIC を 起動 中 に 、MOUSE.COM を 切り 離す こと 
が で き 、 本 体 メ モリ が 不足 気味 の と き に は 、 と て も 便利 な マウ ス ド ラ イ バ で す 。 
MOUSE.COM の 解放 は 、 


MOUSE OFF [リタ ー ン ] 


で す 。 起動 時 に は 、MOUSE.COM を AUTOEXEC.BAT や ほか の バッ チ フ ァイル で 起 
動 、 解 放 を 行なう こと が で きま す 。 


2 グ MOUSE.SYS の 組み 込み 


言 紀 


MOUSE.SYS は 、CONFIG.SYS に 設定 する デバ イス ドラ イ バ で す 。 設定 の 方 法 は 、 
次 の よう に な り ま す 。2 つ を 同時 に 使う こと は で きま せん 。 


バス マウ ス ・ DEVTCE=MOUSE . SYS 
シン シリ アル マウ ス : DEVTCE=MOUSE.SYS /C 
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付録 3 


全部 で 、238 語 あり ます 。 


ABS 
ACCESS 
ALTAS 


CTRCLE 
CLEAR 
CLNG 
CLOSE 
CLS 
COLOR 
COM 
COMMAND$ 
COMMON 
CONST 
COS 

CSNG 
CSNG$ 
CSRLTN 


DEEFDBL 
DEF INT 
DEFLNG 


変数 名 に 使う こと が で き な い p4S7C の 予約 話 


DEFSNG 
DEFSTR 
DIM 

DO 
DOUBLE 
DRAW 

E 

ELSE 
ELSFTF 
END 
ENDTF 
ENVIRON 
ENVIRON$ 
EOF 

EOV 
ERASE 
ERDEV 
ERDEV$ 
ERL 

ERR 


KR 

FIELD 
FILEATTR 
FILES 
FIX 


FOR 

FRE 

FREEFTLE 

FONCTTONI 

各 

GET 

GOSUB 

GOTO 

HH* け 

HEX$ 

JTS$ 

+ 

TF 

TMP 

TNKEY$ ON ! RESTORE 

TNP OPEN iRESUME 

TNPOT OPTTON ! RETURN 

TNPUT$ OR 1 RTGHT$ 

INPUTN OUT ! RMDTR 

TNSTER OUTEUT ! RND 

TNT LOOP B | RESET 

TNTEGER ! LPOS PATNT ! RTRTMS 

TOCTL LPRTNT PALETTE RUN 

TOCTL$ ! LSET PCOPY ! 

TS LTRTM$ PEEK SADD 

K M PEN ! SCREEN 
MTD$ PLAY  iSEEK 
MKD$ PMAP ! SEG 
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T TE 」55imgP TE っ gk. 生 E E み WPM 1 Ap っ HG 
SELECT SLEEP お UNDP 2 | TRON USING 」 WATT 
SETMEM  」 SOUND  」 STRS$ ) TAB imyPE iv | WEND 
SGN SPACE$ STRTG TAN U VAL WHILLE 
SHARED ! SPC | STRING |! THEN i UBOUND |! VARPTR , WIDTH 
SHELL SOR STRING$ TTME$ UCASE$ ! VARPTRS | WINDOW 
STGUNAL | STATIC , SOB | TIMER | UEVENT ! VARSEG ! WRITE 
STN ( STEP SmAP ( |!mO ij ONLOCK ! VrEW ix 
STNGLE STICK SYSTEM TROFF UNTIL ! 

1 『 1 1 1 

1 


W XOR 
1 








付録 4 


5 の 紅 大 


1 グラ フィ ックス の パレ ッ ト モ ー ド に つい て 


Quick BASIC の パレ ッ ト モ ー ド は 、 機 種 に よっ て 制限 が あり 、 グ ラフ ィ ッ クス の 
お まじ な い 、SCREEN 文 は 次 の よう に 制限 され ます 。 


1 . 8 色 中 8 色 モ ー ド 
SCREEN 0 の み …… E/EF/U/VM2/VF2/UV2/VX2 
2 . 4096 色 中 16 色 モー ド 


SCREEN 0、1、2、3…… ト 記 以外 の 機種 


2 PC-9801 用 に カラ ー コ ー ド を 変換 する 変数 


PC-9801 で は 、 カ ラー コー ド と パレ ッ ト 色 が 違う た め 、98 本 来 の パレ ッ ト 色 を 指 
定 で きる 変数 OBGRPNEC が 用 意 き さき れ て いま す 。 た だ し 、 文 字 の 色 は 、Quick BASIC 
の カラ ーー ド で 表示 され ます 。 
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カラ ー コ ー ド 0 1 2 3 4 5 6 7 
QuickBASIC の パレ ッ ト 黒 青 緑 水 赤 紫 黄 白 
PC-9801 本 来 の パレ ッ ト 黒 青 赤 紫 緑 黄 水 白 


MS-DOS の シス テム が 立ち 上 が っ た 状態 で キー ボー ド か ら 入 力 す る か 、 
AUTOEXEC.BAT の 中 に 書き 込ん で お きま す 。 


SET OBGRPNEC=( 任 意 の 文字 列 : ABC で も XYZ で も よい ) 
1 . Quick BASIC の 起動 / 終 了 時 に グラ フィ ッ ク 画 面 を 消去 し な い 。 
2 . Quick BASIC の 起動 終了 時 に パレ ッ ト を 初期 化し な い 。 


付録 り 2 と 多 ? の 林 い 


2. サウ ンド 関係 の コマ ンド が 追加 され まし た 。 
PLAY、SOUND、UEVENT、SLEEP 
3 SCREEN で [mode]l オ プシ ョ ン に 82 が 追加 され まし た 。 
SCREEN82 を 指定 し て や る こと で 、 テ キス ト 前 景色 を 0 に し た と 
きだ け 、 背 景色 を 変え る こと が で きま す 。 
4. アナ ログ マシ ン で 4096 色 中 8 色 の 表示 が 可能 に な り ま し た 。 
5 . WIDTH で 20 行 モー ド が 使え る よう に な り ま し た (V4.2 は 、WIDTH 


80.25 の み ) 。 

6 . V4.2 の ファ イル は 読み 込め ます が 、V4.5 の ファ イル は V4.2 で は 読 
め ま せ ん 。 

7 . 環境 変数 OBGRPNEC 追 加 で 、PC-9801 の カラ ー コ ー ド と 同じ に で 
きま す 。 


243 











付 録 


付録 6 誌 サ ンプ ルプ ログ ラム 過 容 一 覧 


第 1 部 第 3 章 プロ グラ ム の コン パイ ル 
001:\ITI03\SPL001.BAS… 三 角形 の 面積 
002:\ITI03\SPL002.BAS… 三 角形 の 面積 10 回 繰り 返し 
003:\ITI03\SPL003.BAS… 「 人 と 動物 | 論理 演算 子 
003:\ITIO3\SPL004.BAS… 合 計 と 平均 値 
004:\ITIO3\SPLO05.BAS… 合 計 と 平均 値 と 最大 ・ 最 小 
005:\ITIO3\SPLO06.BAS… 数 値 カ ウン ト タ イ マー 
006:\ITIO3\SPL007.BAS… 画 面 家 示 カ ウン ト タ イ マー 
008:\ITIO3\SPLO08.BAS… 物 体 の 落下 速度 U 
009: 練 習 問題 1. 右 形 の 面積 '\ITIO3YDAIKEI.BAS 
010:V4.5 コ ン パ イル 77 侯 、\ITI03\YSUMOI.EXE 合計 と 平均 値 と 最大 ・ 最 小 
011:V4.2 コ ン パ イル 77 侯 、\ITI03\SUMO2.EXE 合計 と 平均 値 と 最大 ・ 最 小 
012:V4.2 コ ン パ イル 77 伺 、\ITIO3*SUMO3.EXE ヶ 9 條 和 ー ル が な いと 走ら な い 


第 1 部 第 4 章 表示 画面 の 体裁 を 整え る 
001:\ITIO4\INKORON.BAS… 入 力 ・ 表 示 の カン マ と セミ コロ ン 
002:\ITIO4\PRKORON.BAS… コ メン ト つ き 表 示 
003:\ITIO4\SPL3-001.BAS…LOCATE 文 
004:\ITIO4\SPL3-002.BAS…LOCATE 文 オマ ル チ ス テー トメ ント 
005:\ITIO4\SPL3-003.BAS…LOCATE 文 と 変数 
006:\ITIO4\SPL3-004.BAS…A の 一 直線 表示 
007:\ITIO4\YSPL3-005.BAS…A の ラン ニン グ 
008:\ITIO4\SPL3-006.BAS… 数 値 変数 
009:\ITI04\SPL3-007.BAS… 変 数 の 型 で 表示 が 変わ る 
010:\ITIO4\SPL3-008.BAS… 表 示 位置 の 指定 
011:\ITIO4\SPL3-009.BAS… 型 の 変更 
012:\ITIO4\SPL3-010.BAS… 任 意 の 文字 数 の 抽出 
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013:\ITIO4\SPL3-011.BAS… 
014:\ITIO4\SPL3-012.BAS… 
01S:\TITIO4\SPL3-013.BAS… 
016:\ITIO4\SPL3-014.BAS… 


入力 文字 の コー ド 変 換 
入力 文字 を 右 か ら 左 へ 表示 
キャ ラク タ 表 示 

自作 カー ソル 


第 1 部 第 5 章 ファ イル 処理 の 基礎 知識 


001:\ITI0S\SPL0401.BAS…・ 
002:\TITIOS\SPL0402.BAS…・ 
003:\ITIOS\SPL0403.BAS… 
004:\ITIOS\SPL0403.EXE…・ 


・ シ ー ケ ン シ ャ ルフ ァイル デー タス 入力 

・ シ ー ケ ン シ ャ ルフ ァイル デー タ 読 み 出し 
・ ロ ー タ ス 1-2-3 用 デー タ 入 力 

・ ロ ー タ ス 1-2-3 用 デー タ 入 力 実 行 フ ァイル 


005:\ITIOS\SPL0404.BAS… お まけ : 2 進数 換算 プロ グラ ム 


第 2 部 


001:\NIB\GR-PRO001.BAS… 
002:\NIB\GR-PRO002.BAS… 
003:\NIB\GR-PR003.BAS… 
004:\NIB\GR-PR004.BAS… 
005:\NIB\GR-PR005.BAS… 
006:\NIB\GR-PR006.BAS・ 
007:\NIB\GR-PR007.BAS… 
008:\NIB\GR-PRO008.BAS… 
009:\NIB\GR-PR009.BAS… 
010:\NIB\GR-PR010.BAS… 
011:\NIB\GR-PRO11.BAS… 
012:\NIB\GR-PR012.BAS… 
013:\NIB\GR-PR013.BAS… 
014:\NIB\GR-PR014.BAS… 


第 1 章 図形 を 描く た め の 基 本 的 な 命令 
・ 点 を 表示 

・ 点 を 消去 

* 画 面 を 横 に 走る 線 
* 画 面 を 縦 に 走る 線 
*2 点 表示 

… 和 斜め 線 表 示 

* 相 対 位 置 決 め 

* 皿 角形 

* 色 つき 四角 形 

* 机 


カラ ー コ ー ド 線 表示 
カラ ー コ ー ド 面 表示 


* 色 の 混合 
* 皿 角形 と 円 の 移動 


第 2 部 第 2 章 直線 と 四角 形 
001:\NIB02\GR-201.BAS… 線 の スタ イル 
002:\NIB02\GR-202.BAS… グ ラフ ィ ッ クス 基準 メッ シュ 
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付 録 


003:\NIB02\GR-203.BAS… 
004:\NIB02\GR-204.BAS… 
005:\NIBO2\GR-205.BAS… 
006:\NIB02\GR-206.BAS… 
007:\NIB02\GR-207.BAS… 
008:\NIB02\GR-208.BAS… 
009:\NIB02\GR-209.BAS… 
010:\NIB02\GR-210.BAS… 
011:\NIB02\GR-211.BAS・ 
012:\NIB02\GR-212.BAS…‥ 


第 2 部 第 3 章 曲線 


001:\NIBUO03\PR301.BAS… 
002:\NIBUO03\PR302.BAS… 
003:\NIBUO3\PR303.BAS… 
004:\NIBUO03\PR304.BAS…・ 
005:\NIBUO03\PR305.BAS… 
006:\NIBU03\PR306.BAS… 
007:\NIBUO3\PR307.BAS… 
008:\NIBU03\PR308.BAS… 
009:\NIBUO03\PR309.BAS… 
010:\NIBUO03\PR310.BAS… 
011:\NIBUO03\PR311.BAS… 
012:\NIBUO03\PR312.BAS… 
013:\NIBU03\PR313.BAS… 


第 2 部 
001:\NIBUO04\PR401.BAS 
002:\NIBUO04\PR402.BAS 
003:\NIBUO04\PR403.BAS 
004:\NIBUO4\PR404.BAS 
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乱数 に よる 点 の 表示 
乱数 に よる 線 の 表示 
*LINE 文 を 使っ た 三角 形 
・STEP 文 を 使っ た 三角 形 
・READ~-DATA の 三角 形 
円 の 乱舞 

四角 の 乱舞 

頂 円 の 乱舞 
"乱数 を 使っ た 色 の 発生 
・PUT、GET で ウイ ンド ウ を 作る 


角度 と ラジ アン 

扇形 

連続 し た 扇形 

・ 一 次 関数 の 曲線 
連続 し た 二 次 関数 の 曲線 

・ 三 次 関数 の 曲線 

サイ ンカ ー プ 

* 円 の サイ カー ブ 
リザ ー ジ ュ 曲 線 

・ 一 本 の 花びら 

複数 の 花びら 

・3 次 元 関数 の 応用 (書籍 未 掲載 ) 
サイ ンカ ー ブ の 応用 (書籍 未 掲載 ) 


第 4 章 図形 の 回 転 


… 扇 形 の 30 度 毎 の 表示 

… カ ラー ドー ナツ 

… 地 下 鉄 工事 

… 直 線 を 使っ た 曲線 1 = 


005:\NIBU04\PR405.BAS… 直 線 を 使っ た 曲線 三 2 = 
006:\NIBU04\PR406.BAS… 直 線 を 使っ た 曲線 三 3 = 
007:\NIBU04\PR407.BAS… 直 線 を 使っ た 曲線 三 4 = 
008:\NIBUO04\PR408.BAS… 直 線 を 使っ た 曲線 三 5 = 
009:\NIBU04\YPR409.BAS… 多 角形 を 作る 
010:\NIBUO04\YPR410.BAS… 多 角 無 
011:\NIBUO04\PR411.BAS… 階 乗 式 を 使っ た 直線 
012:\NIBU04\PR412.BAS… 息 を する 四角 形 
013:\NIBU04\PR413.BAS… 中 三 針 ア ナ ロ グ 時 計 


第 2 部 第 5 章 NB88-BASIC か ら の 移植 
001:\NIBOS\QUAD.BAS… 赤 松 氏 プロ グラ ム を MS-DOS に 変換 (走ら な い ) 
002:\NIBOS\PRS01.BAS… 赤 松 氏 プロ グラ ム を QB 用 に デバ ッ グ 
003:\NIBOS\PRS02.BAS… 赤 松 氏 プロ グラ ム の 改良 
004:\NIBOS\SAKUHYO.BAS…N88-BASIC (MS-DOS 用 ) 作 表 プ ログ ラム 
005:\NIBOS\PRS03.BAS… 作 表 プ ログ ラム を QB 用 に デバ ッ グ 
006:\NIBOS\PRS04.BAS… 自 作 カ ー ソ ル と ワー プ ゾ ー ン 


本 書 で 紹介 し た 「 パ ソコ ン 図 形 処理 テク ニッ ク ] 1 

(PC-8801/mkII, PC-9801/F/E 対 応 、 他 の 機種 に も 応用 可 
能 ) 、 お よび 「 パ ソコ ン 模 様 構成 テク ニッ ク ] (PC-98 
シリ ー ズ に 対応 ) に 関心 の ある 方 は 、 下 記 版 元 へ お 問い 
合わ せく だ さい 。 


〒101 東京 都 千 代田 区 神田 錦町 1 一 5 一 5 
株 式 会 社 誠 文 堂 新光 社 


に 
| 
I 
I 
I 
1 
I 
I 
I 
1 
I 
1 宮 03-292-1211 


本 
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読者 の 皆さま に お 願い II 


の 


か 感 


7%(4 人 


ご 
ン 


てく は て 計 


て さや 音 光 必 呈 状 


ば 叶 流 9 


ば どど プイ し も し や 見 所 交 ゆ W ま 
` を き お な まま どの な と めい 何 る 私 う 
まお に りお すし が り も て と ら 人 た か 
こ 書 な ま "お ご におい かび ぴち : 
* と きり す 誤 寄 さ ま 歩 りう の と 一 : 
京 に 添 ま が 植 せい た むせ む ま に こ 指 に 日 
名 考え し や くま お た す と 標 愛 本 
人 t 甚 の た も 乱 だ し 読め が を に さき さき 文 

日 田 と うら し 丁 さ た み ` 願 な れ 芸 
放 存 る え 「' 誤 の る らら に 演 や りり .* 耕 

本 委 じ し ご ご りな よ な 希 の て 役 親 一 
神 ま 教職 の い う 左 り 望 上 立 し は 

文 僅 す 示 業 個 よ お 記 た な と 編 つ ま 常 
くい 麻 う 願 あ いり も 集 本 れ に 

芸 / だ 年 に に いて 肉 「 皆 に で 
6 き さ 齢 お 努 い に 窒 ご き さ 心 あ そ あ 

社 れ な 気 め た どの 意 ま を し ら 
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